Option Strict Off
Option Explicit On
Friend Class frmMDI
	Inherits System.Windows.Forms.Form
#Region "Windows Form Designer generated code "
	Public Sub New()
		MyBase.New()
		If m_vb6FormDefInstance Is Nothing Then
			m_vb6FormDefInstance = Me
		End If
		'This call is required by the Windows Form Designer.
		InitializeComponent()
	End Sub
	'Form overrides dispose to clean up the component list.
	Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
		If Disposing Then
			If Not components Is Nothing Then
				components.Dispose()
			End If
		End If
		MyBase.Dispose(Disposing)
	End Sub
	'Required by the Windows Form Designer
	Private components As System.ComponentModel.IContainer
	Public ToolTip1 As System.Windows.Forms.ToolTip
	Public WithEvents lblTip As System.Windows.Forms.Label
	Public WithEvents Picture1 As System.Windows.Forms.Panel
	Public WithEvents ImageList1 As AxMSComctlLib.AxImageList
	Public WithEvents Dialog1 As AxMSComDlg.AxCommonDialog
	Public WithEvents Timer1 As System.Windows.Forms.Timer
	Public WithEvents mnuColorSub As Microsoft.VisualBasic.Compatibility.VB6.MenuItemArray
	Public WithEvents mnuDisplayModeSub As Microsoft.VisualBasic.Compatibility.VB6.MenuItemArray
	Public WithEvents mnuFilePrintSub As Microsoft.VisualBasic.Compatibility.VB6.MenuItemArray
	Public WithEvents mnuSchSub As Microsoft.VisualBasic.Compatibility.VB6.MenuItemArray
	Public WithEvents mnuScheduleIncrementSub As Microsoft.VisualBasic.Compatibility.VB6.MenuItemArray
	Public WithEvents mnuShowTextSub As Microsoft.VisualBasic.Compatibility.VB6.MenuItemArray
	Public WithEvents mnuWindowSub As Microsoft.VisualBasic.Compatibility.VB6.MenuItemArray
	Public WithEvents mnuFileNew As System.Windows.Forms.MenuItem
	Public WithEvents mnuFileOpen As System.Windows.Forms.MenuItem
	Public WithEvents mnuFileSave As System.Windows.Forms.MenuItem
	Public WithEvents mnuFileClose As System.Windows.Forms.MenuItem
	Public WithEvents mnuSep120 As System.Windows.Forms.MenuItem
	Public WithEvents mnuExportHTML As System.Windows.Forms.MenuItem
	Public WithEvents mnuSep23 As System.Windows.Forms.MenuItem
	Public WithEvents mnuPrint As System.Windows.Forms.MenuItem
	Public WithEvents _mnuFilePrintSub_0 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuFilePrintSub_1 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuFilePrintSub_2 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuFilePrintSub_3 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuFilePrintSub_4 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuFilePrintSub_5 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuFilePrintSub_6 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuFilePrintSub_7 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuFilePrintSub_8 As System.Windows.Forms.MenuItem
	Public WithEvents mnuFilePrint As System.Windows.Forms.MenuItem
	Public WithEvents mnuSep13 As System.Windows.Forms.MenuItem
	Public WithEvents mnuExit As System.Windows.Forms.MenuItem
	Public WithEvents mnuFile As System.Windows.Forms.MenuItem
	Public WithEvents _mnuSchSub_0 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuSchSub_1 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuSchSub_2 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuSchSub_3 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuSchSub_4 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuSchSub_5 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuSchSub_6 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuSchSub_7 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuSchSub_8 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuSchSub_9 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuSchSub_10 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuSchSub_11 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuSchSub_12 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuSchSub_13 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuSchSub_14 As System.Windows.Forms.MenuItem
	Public WithEvents mnuSep11 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuDisplayModeSub_0 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuDisplayModeSub_1 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuDisplayModeSub_2 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuDisplayModeSub_3 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuDisplayModeSub_4 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuDisplayModeSub_5 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuDisplayModeSub_6 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuDisplayModeSub_7 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuDisplayModeSub_8 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuDisplayModeSub_9 As System.Windows.Forms.MenuItem
	Public WithEvents mnuDisplayMode As System.Windows.Forms.MenuItem
	Public WithEvents _mnuScheduleIncrementSub_0 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuScheduleIncrementSub_1 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuScheduleIncrementSub_2 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuScheduleIncrementSub_3 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuScheduleIncrementSub_4 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuScheduleIncrementSub_5 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuScheduleIncrementSub_6 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuScheduleIncrementSub_7 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuScheduleIncrementSub_8 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuScheduleIncrementSub_9 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuScheduleIncrementSub_10 As System.Windows.Forms.MenuItem
	Public WithEvents mnuScheduleIncrement As System.Windows.Forms.MenuItem
	Public WithEvents mnuSep5 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuShowTextSub_0 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuShowTextSub_1 As System.Windows.Forms.MenuItem
	Public WithEvents mnuShowText As System.Windows.Forms.MenuItem
	Public WithEvents mnuSep102 As System.Windows.Forms.MenuItem
	Public WithEvents mnuSchAddRoom As System.Windows.Forms.MenuItem
	Public WithEvents mnuSchRemoveRoom As System.Windows.Forms.MenuItem
	Public WithEvents mnuRoom As System.Windows.Forms.MenuItem
	Public WithEvents mnuSep6 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuColorSub_0 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuColorSub_1 As System.Windows.Forms.MenuItem
	Public WithEvents mnuSchColor As System.Windows.Forms.MenuItem
	Public WithEvents mnuSep7 As System.Windows.Forms.MenuItem
	Public WithEvents mnuSchAddCategory As System.Windows.Forms.MenuItem
	Public WithEvents mnuSchDeleteCategory As System.Windows.Forms.MenuItem
	Public WithEvents mnuCategory As System.Windows.Forms.MenuItem
	Public WithEvents mnuSchedule As System.Windows.Forms.MenuItem
	Public WithEvents mnuToggleMonthMode As System.Windows.Forms.MenuItem
	Public WithEvents mnuSep57 As System.Windows.Forms.MenuItem
	Public WithEvents mnuDoctorsOffice As System.Windows.Forms.MenuItem
	Public WithEvents mnuSep12 As System.Windows.Forms.MenuItem
	Public WithEvents mnuAdd5 As System.Windows.Forms.MenuItem
	Public WithEvents mnuTestDefaultDialogs As System.Windows.Forms.MenuItem
	Public WithEvents mnuCustomDialogs As System.Windows.Forms.MenuItem
	Public WithEvents mnuCustomIcons As System.Windows.Forms.MenuItem
	Public WithEvents mnuTestBlocking As System.Windows.Forms.MenuItem
	Public WithEvents mnuApptColors As System.Windows.Forms.MenuItem
	Public WithEvents mnuTestNextFit As System.Windows.Forms.MenuItem
	Public WithEvents mnuTestNextFitBlocking As System.Windows.Forms.MenuItem
	Public WithEvents mnuSep8 As System.Windows.Forms.MenuItem
	Public WithEvents mnuCategoryOtherAdd As System.Windows.Forms.MenuItem
	Public WithEvents mnuTest As System.Windows.Forms.MenuItem
	Public WithEvents _mnuWindowSub_0 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuWindowSub_1 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuWindowSub_2 As System.Windows.Forms.MenuItem
	Public WithEvents _mnuWindowSub_3 As System.Windows.Forms.MenuItem
	Public WithEvents mnuWindow As System.Windows.Forms.MenuItem
	Public WithEvents mnuHelpContents As System.Windows.Forms.MenuItem
	Public WithEvents mnuHelpSearch As System.Windows.Forms.MenuItem
    Public WithEvents mnuHelp As System.Windows.Forms.MenuItem
    Public MainMenu1 As System.Windows.Forms.MainMenu
	'NOTE: The following procedure is required by the Windows Form Designer
	'It can be modified using the Windows Form Designer.
	'Do not modify it using the code editor.
	<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMDI))
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        Me.Picture1 = New System.Windows.Forms.Panel()
        Me.lblTip = New System.Windows.Forms.Label()
        Me.ImageList1 = New AxMSComctlLib.AxImageList()
        Me.Dialog1 = New AxMSComDlg.AxCommonDialog()
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
        Me.mnuColorSub = New Microsoft.VisualBasic.Compatibility.VB6.MenuItemArray(Me.components)
        Me._mnuColorSub_0 = New System.Windows.Forms.MenuItem()
        Me._mnuColorSub_1 = New System.Windows.Forms.MenuItem()
        Me.mnuDisplayModeSub = New Microsoft.VisualBasic.Compatibility.VB6.MenuItemArray(Me.components)
        Me._mnuDisplayModeSub_0 = New System.Windows.Forms.MenuItem()
        Me._mnuDisplayModeSub_1 = New System.Windows.Forms.MenuItem()
        Me._mnuDisplayModeSub_2 = New System.Windows.Forms.MenuItem()
        Me._mnuDisplayModeSub_3 = New System.Windows.Forms.MenuItem()
        Me._mnuDisplayModeSub_4 = New System.Windows.Forms.MenuItem()
        Me._mnuDisplayModeSub_5 = New System.Windows.Forms.MenuItem()
        Me._mnuDisplayModeSub_6 = New System.Windows.Forms.MenuItem()
        Me._mnuDisplayModeSub_7 = New System.Windows.Forms.MenuItem()
        Me._mnuDisplayModeSub_8 = New System.Windows.Forms.MenuItem()
        Me._mnuDisplayModeSub_9 = New System.Windows.Forms.MenuItem()
        Me.mnuFilePrintSub = New Microsoft.VisualBasic.Compatibility.VB6.MenuItemArray(Me.components)
        Me._mnuFilePrintSub_0 = New System.Windows.Forms.MenuItem()
        Me._mnuFilePrintSub_1 = New System.Windows.Forms.MenuItem()
        Me._mnuFilePrintSub_2 = New System.Windows.Forms.MenuItem()
        Me._mnuFilePrintSub_3 = New System.Windows.Forms.MenuItem()
        Me._mnuFilePrintSub_4 = New System.Windows.Forms.MenuItem()
        Me._mnuFilePrintSub_5 = New System.Windows.Forms.MenuItem()
        Me._mnuFilePrintSub_6 = New System.Windows.Forms.MenuItem()
        Me._mnuFilePrintSub_7 = New System.Windows.Forms.MenuItem()
        Me._mnuFilePrintSub_8 = New System.Windows.Forms.MenuItem()
        Me.mnuSchSub = New Microsoft.VisualBasic.Compatibility.VB6.MenuItemArray(Me.components)
        Me._mnuSchSub_0 = New System.Windows.Forms.MenuItem()
        Me._mnuSchSub_1 = New System.Windows.Forms.MenuItem()
        Me._mnuSchSub_2 = New System.Windows.Forms.MenuItem()
        Me._mnuSchSub_3 = New System.Windows.Forms.MenuItem()
        Me._mnuSchSub_4 = New System.Windows.Forms.MenuItem()
        Me._mnuSchSub_5 = New System.Windows.Forms.MenuItem()
        Me._mnuSchSub_6 = New System.Windows.Forms.MenuItem()
        Me._mnuSchSub_7 = New System.Windows.Forms.MenuItem()
        Me._mnuSchSub_8 = New System.Windows.Forms.MenuItem()
        Me._mnuSchSub_9 = New System.Windows.Forms.MenuItem()
        Me._mnuSchSub_10 = New System.Windows.Forms.MenuItem()
        Me._mnuSchSub_11 = New System.Windows.Forms.MenuItem()
        Me._mnuSchSub_12 = New System.Windows.Forms.MenuItem()
        Me._mnuSchSub_13 = New System.Windows.Forms.MenuItem()
        Me._mnuSchSub_14 = New System.Windows.Forms.MenuItem()
        Me.mnuScheduleIncrementSub = New Microsoft.VisualBasic.Compatibility.VB6.MenuItemArray(Me.components)
        Me._mnuScheduleIncrementSub_0 = New System.Windows.Forms.MenuItem()
        Me._mnuScheduleIncrementSub_1 = New System.Windows.Forms.MenuItem()
        Me._mnuScheduleIncrementSub_2 = New System.Windows.Forms.MenuItem()
        Me._mnuScheduleIncrementSub_3 = New System.Windows.Forms.MenuItem()
        Me._mnuScheduleIncrementSub_4 = New System.Windows.Forms.MenuItem()
        Me._mnuScheduleIncrementSub_5 = New System.Windows.Forms.MenuItem()
        Me._mnuScheduleIncrementSub_6 = New System.Windows.Forms.MenuItem()
        Me._mnuScheduleIncrementSub_7 = New System.Windows.Forms.MenuItem()
        Me._mnuScheduleIncrementSub_8 = New System.Windows.Forms.MenuItem()
        Me._mnuScheduleIncrementSub_9 = New System.Windows.Forms.MenuItem()
        Me._mnuScheduleIncrementSub_10 = New System.Windows.Forms.MenuItem()
        Me.mnuShowTextSub = New Microsoft.VisualBasic.Compatibility.VB6.MenuItemArray(Me.components)
        Me._mnuShowTextSub_0 = New System.Windows.Forms.MenuItem()
        Me._mnuShowTextSub_1 = New System.Windows.Forms.MenuItem()
        Me.mnuWindowSub = New Microsoft.VisualBasic.Compatibility.VB6.MenuItemArray(Me.components)
        Me._mnuWindowSub_0 = New System.Windows.Forms.MenuItem()
        Me._mnuWindowSub_1 = New System.Windows.Forms.MenuItem()
        Me._mnuWindowSub_2 = New System.Windows.Forms.MenuItem()
        Me._mnuWindowSub_3 = New System.Windows.Forms.MenuItem()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.mnuFile = New System.Windows.Forms.MenuItem()
        Me.mnuFileNew = New System.Windows.Forms.MenuItem()
        Me.mnuFileOpen = New System.Windows.Forms.MenuItem()
        Me.mnuFileSave = New System.Windows.Forms.MenuItem()
        Me.mnuFileClose = New System.Windows.Forms.MenuItem()
        Me.mnuSep120 = New System.Windows.Forms.MenuItem()
        Me.mnuExportHTML = New System.Windows.Forms.MenuItem()
        Me.mnuSep23 = New System.Windows.Forms.MenuItem()
        Me.mnuPrint = New System.Windows.Forms.MenuItem()
        Me.mnuFilePrint = New System.Windows.Forms.MenuItem()
        Me.mnuSep13 = New System.Windows.Forms.MenuItem()
        Me.mnuExit = New System.Windows.Forms.MenuItem()
        Me.mnuSchedule = New System.Windows.Forms.MenuItem()
        Me.mnuSep11 = New System.Windows.Forms.MenuItem()
        Me.mnuDisplayMode = New System.Windows.Forms.MenuItem()
        Me.mnuScheduleIncrement = New System.Windows.Forms.MenuItem()
        Me.mnuSep5 = New System.Windows.Forms.MenuItem()
        Me.mnuShowText = New System.Windows.Forms.MenuItem()
        Me.mnuSep102 = New System.Windows.Forms.MenuItem()
        Me.mnuRoom = New System.Windows.Forms.MenuItem()
        Me.mnuSchAddRoom = New System.Windows.Forms.MenuItem()
        Me.mnuSchRemoveRoom = New System.Windows.Forms.MenuItem()
        Me.mnuSep6 = New System.Windows.Forms.MenuItem()
        Me.mnuSchColor = New System.Windows.Forms.MenuItem()
        Me.mnuSep7 = New System.Windows.Forms.MenuItem()
        Me.mnuCategory = New System.Windows.Forms.MenuItem()
        Me.mnuSchAddCategory = New System.Windows.Forms.MenuItem()
        Me.mnuSchDeleteCategory = New System.Windows.Forms.MenuItem()
        Me.mnuTest = New System.Windows.Forms.MenuItem()
        Me.mnuToggleMonthMode = New System.Windows.Forms.MenuItem()
        Me.mnuSep57 = New System.Windows.Forms.MenuItem()
        Me.mnuDoctorsOffice = New System.Windows.Forms.MenuItem()
        Me.mnuSep12 = New System.Windows.Forms.MenuItem()
        Me.mnuAdd5 = New System.Windows.Forms.MenuItem()
        Me.mnuTestDefaultDialogs = New System.Windows.Forms.MenuItem()
        Me.mnuCustomDialogs = New System.Windows.Forms.MenuItem()
        Me.mnuCustomIcons = New System.Windows.Forms.MenuItem()
        Me.mnuTestBlocking = New System.Windows.Forms.MenuItem()
        Me.mnuApptColors = New System.Windows.Forms.MenuItem()
        Me.mnuTestNextFit = New System.Windows.Forms.MenuItem()
        Me.mnuTestNextFitBlocking = New System.Windows.Forms.MenuItem()
        Me.mnuSep8 = New System.Windows.Forms.MenuItem()
        Me.mnuCategoryOtherAdd = New System.Windows.Forms.MenuItem()
        Me.mnuWindow = New System.Windows.Forms.MenuItem()
        Me.mnuHelp = New System.Windows.Forms.MenuItem()
        Me.mnuHelpContents = New System.Windows.Forms.MenuItem()
        Me.mnuHelpSearch = New System.Windows.Forms.MenuItem()
        Me.Picture1.SuspendLayout()
        CType(Me.ImageList1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Dialog1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.mnuColorSub, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.mnuDisplayModeSub, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.mnuFilePrintSub, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.mnuSchSub, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.mnuScheduleIncrementSub, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.mnuShowTextSub, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.mnuWindowSub, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'Picture1
        '
        Me.Picture1.BackColor = System.Drawing.SystemColors.Control
        Me.Picture1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Picture1.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblTip})
        Me.Picture1.Cursor = System.Windows.Forms.Cursors.Default
        Me.Picture1.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.Picture1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Picture1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Picture1.Location = New System.Drawing.Point(0, 232)
        Me.Picture1.Name = "Picture1"
        Me.Picture1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Picture1.Size = New System.Drawing.Size(344, 17)
        Me.Picture1.TabIndex = 0
        Me.Picture1.TabStop = True
        '
        'lblTip
        '
        Me.lblTip.BackColor = System.Drawing.SystemColors.Control
        Me.lblTip.Cursor = System.Windows.Forms.Cursors.Default
        Me.lblTip.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblTip.ForeColor = System.Drawing.SystemColors.ControlText
        Me.lblTip.Location = New System.Drawing.Point(72, 0)
        Me.lblTip.Name = "lblTip"
        Me.lblTip.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.lblTip.Size = New System.Drawing.Size(33, 17)
        Me.lblTip.TabIndex = 1
        '
        'ImageList1
        '
        Me.ImageList1.Enabled = True
        Me.ImageList1.Location = New System.Drawing.Point(72, 0)
        Me.ImageList1.Name = "ImageList1"
        Me.ImageList1.OcxState = CType(resources.GetObject("ImageList1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.ImageList1.Size = New System.Drawing.Size(38, 38)
        Me.ImageList1.TabIndex = 1
        '
        'Dialog1
        '
        Me.Dialog1.Enabled = True
        Me.Dialog1.Location = New System.Drawing.Point(32, 0)
        Me.Dialog1.Name = "Dialog1"
        Me.Dialog1.OcxState = CType(resources.GetObject("Dialog1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.Dialog1.Size = New System.Drawing.Size(32, 32)
        Me.Dialog1.TabIndex = 2
        '
        'Timer1
        '
        Me.Timer1.Enabled = True
        Me.Timer1.Interval = 1000
        '
        'mnuColorSub
        '
        '
        '_mnuColorSub_0
        '
        Me.mnuColorSub.SetIndex(Me._mnuColorSub_0, CType(0, Short))
        Me._mnuColorSub_0.Index = 0
        Me._mnuColorSub_0.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuColorSub_0.Text = "BackColor"
        '
        '_mnuColorSub_1
        '
        Me.mnuColorSub.SetIndex(Me._mnuColorSub_1, CType(1, Short))
        Me._mnuColorSub_1.Index = 1
        Me._mnuColorSub_1.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuColorSub_1.Text = "ForeColor"
        '
        'mnuDisplayModeSub
        '
        '
        '_mnuDisplayModeSub_0
        '
        Me.mnuDisplayModeSub.SetIndex(Me._mnuDisplayModeSub_0, CType(0, Short))
        Me._mnuDisplayModeSub_0.Index = 0
        Me._mnuDisplayModeSub_0.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuDisplayModeSub_0.Text = "Day Left Time Top"
        '
        '_mnuDisplayModeSub_1
        '
        Me.mnuDisplayModeSub.SetIndex(Me._mnuDisplayModeSub_1, CType(1, Short))
        Me._mnuDisplayModeSub_1.Index = 1
        Me._mnuDisplayModeSub_1.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuDisplayModeSub_1.Text = "Room Left Time Top"
        '
        '_mnuDisplayModeSub_2
        '
        Me.mnuDisplayModeSub.SetIndex(Me._mnuDisplayModeSub_2, CType(2, Short))
        Me._mnuDisplayModeSub_2.Index = 2
        Me._mnuDisplayModeSub_2.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuDisplayModeSub_2.Text = "Day/Room Left Time Top"
        '
        '_mnuDisplayModeSub_3
        '
        Me.mnuDisplayModeSub.SetIndex(Me._mnuDisplayModeSub_3, CType(3, Short))
        Me._mnuDisplayModeSub_3.Index = 3
        Me._mnuDisplayModeSub_3.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuDisplayModeSub_3.Text = "Day Top Time Left"
        '
        '_mnuDisplayModeSub_4
        '
        Me.mnuDisplayModeSub.SetIndex(Me._mnuDisplayModeSub_4, CType(4, Short))
        Me._mnuDisplayModeSub_4.Index = 4
        Me._mnuDisplayModeSub_4.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuDisplayModeSub_4.Text = "Room Top Time Left"
        '
        '_mnuDisplayModeSub_5
        '
        Me.mnuDisplayModeSub.SetIndex(Me._mnuDisplayModeSub_5, CType(5, Short))
        Me._mnuDisplayModeSub_5.Index = 5
        Me._mnuDisplayModeSub_5.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuDisplayModeSub_5.Text = "Day/Room Top Time Left"
        '
        '_mnuDisplayModeSub_6
        '
        Me.mnuDisplayModeSub.SetIndex(Me._mnuDisplayModeSub_6, CType(6, Short))
        Me._mnuDisplayModeSub_6.Index = 6
        Me._mnuDisplayModeSub_6.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuDisplayModeSub_6.Text = "Day Left Room Top (No Time)"
        '
        '_mnuDisplayModeSub_7
        '
        Me.mnuDisplayModeSub.SetIndex(Me._mnuDisplayModeSub_7, CType(7, Short))
        Me._mnuDisplayModeSub_7.Index = 7
        Me._mnuDisplayModeSub_7.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuDisplayModeSub_7.Text = "Room Left Day Top (No Time)"
        '
        '_mnuDisplayModeSub_8
        '
        Me.mnuDisplayModeSub.SetIndex(Me._mnuDisplayModeSub_8, CType(8, Short))
        Me._mnuDisplayModeSub_8.Index = 8
        Me._mnuDisplayModeSub_8.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuDisplayModeSub_8.Text = "Calendar"
        '
        '_mnuDisplayModeSub_9
        '
        Me.mnuDisplayModeSub.SetIndex(Me._mnuDisplayModeSub_9, CType(9, Short))
        Me._mnuDisplayModeSub_9.Index = 9
        Me._mnuDisplayModeSub_9.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuDisplayModeSub_9.Text = "List"
        '
        'mnuFilePrintSub
        '
        '
        '_mnuFilePrintSub_0
        '
        Me.mnuFilePrintSub.SetIndex(Me._mnuFilePrintSub_0, CType(0, Short))
        Me._mnuFilePrintSub_0.Index = 0
        Me._mnuFilePrintSub_0.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuFilePrintSub_0.Text = "&Current Mode"
        '
        '_mnuFilePrintSub_1
        '
        Me.mnuFilePrintSub.SetIndex(Me._mnuFilePrintSub_1, CType(1, Short))
        Me._mnuFilePrintSub_1.Index = 1
        Me._mnuFilePrintSub_1.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuFilePrintSub_1.Text = "-"
        '
        '_mnuFilePrintSub_2
        '
        Me.mnuFilePrintSub.SetIndex(Me._mnuFilePrintSub_2, CType(2, Short))
        Me._mnuFilePrintSub_2.Index = 2
        Me._mnuFilePrintSub_2.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuFilePrintSub_2.Text = "Time On Left / Day"
        '
        '_mnuFilePrintSub_3
        '
        Me.mnuFilePrintSub.SetIndex(Me._mnuFilePrintSub_3, CType(3, Short))
        Me._mnuFilePrintSub_3.Index = 3
        Me._mnuFilePrintSub_3.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuFilePrintSub_3.Text = "Time On Left / Room"
        '
        '_mnuFilePrintSub_4
        '
        Me.mnuFilePrintSub.SetIndex(Me._mnuFilePrintSub_4, CType(4, Short))
        Me._mnuFilePrintSub_4.Index = 4
        Me._mnuFilePrintSub_4.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuFilePrintSub_4.Text = "Time On Left / Day-Room"
        '
        '_mnuFilePrintSub_5
        '
        Me.mnuFilePrintSub.SetIndex(Me._mnuFilePrintSub_5, CType(5, Short))
        Me._mnuFilePrintSub_5.Index = 5
        Me._mnuFilePrintSub_5.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuFilePrintSub_5.Text = "-"
        '
        '_mnuFilePrintSub_6
        '
        Me.mnuFilePrintSub.SetIndex(Me._mnuFilePrintSub_6, CType(6, Short))
        Me._mnuFilePrintSub_6.Index = 6
        Me._mnuFilePrintSub_6.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuFilePrintSub_6.Text = "Time On Top / Day"
        '
        '_mnuFilePrintSub_7
        '
        Me.mnuFilePrintSub.SetIndex(Me._mnuFilePrintSub_7, CType(7, Short))
        Me._mnuFilePrintSub_7.Index = 7
        Me._mnuFilePrintSub_7.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuFilePrintSub_7.Text = "Time On Top / Room"
        '
        '_mnuFilePrintSub_8
        '
        Me.mnuFilePrintSub.SetIndex(Me._mnuFilePrintSub_8, CType(8, Short))
        Me._mnuFilePrintSub_8.Index = 8
        Me._mnuFilePrintSub_8.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuFilePrintSub_8.Text = "Time On Top / Day-Room"
        '
        'mnuSchSub
        '
        '
        '_mnuSchSub_0
        '
        Me.mnuSchSub.SetIndex(Me._mnuSchSub_0, CType(0, Short))
        Me._mnuSchSub_0.Index = 0
        Me._mnuSchSub_0.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuSchSub_0.Text = "AllowAdd"
        '
        '_mnuSchSub_1
        '
        Me.mnuSchSub.SetIndex(Me._mnuSchSub_1, CType(1, Short))
        Me._mnuSchSub_1.Index = 1
        Me._mnuSchSub_1.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuSchSub_1.Text = "AllowDelete"
        '
        '_mnuSchSub_2
        '
        Me.mnuSchSub.SetIndex(Me._mnuSchSub_2, CType(2, Short))
        Me._mnuSchSub_2.Index = 2
        Me._mnuSchSub_2.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuSchSub_2.Text = "AllowCopy"
        '
        '_mnuSchSub_3
        '
        Me.mnuSchSub.SetIndex(Me._mnuSchSub_3, CType(3, Short))
        Me._mnuSchSub_3.Index = 3
        Me._mnuSchSub_3.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuSchSub_3.Text = "AllowEdit"
        '
        '_mnuSchSub_4
        '
        Me.mnuSchSub.SetIndex(Me._mnuSchSub_4, CType(4, Short))
        Me._mnuSchSub_4.Index = 4
        Me._mnuSchSub_4.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuSchSub_4.Text = "AllowMove"
        '
        '_mnuSchSub_5
        '
        Me.mnuSchSub.SetIndex(Me._mnuSchSub_5, CType(5, Short))
        Me._mnuSchSub_5.Index = 5
        Me._mnuSchSub_5.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuSchSub_5.Text = "ConflictWarn"
        '
        '_mnuSchSub_6
        '
        Me.mnuSchSub.SetIndex(Me._mnuSchSub_6, CType(6, Short))
        Me._mnuSchSub_6.Index = 6
        Me._mnuSchSub_6.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuSchSub_6.Text = "Enabled"
        '
        '_mnuSchSub_7
        '
        Me.mnuSchSub.SetIndex(Me._mnuSchSub_7, CType(7, Short))
        Me._mnuSchSub_7.Index = 7
        Me._mnuSchSub_7.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuSchSub_7.Text = "CategoryBar"
        '
        '_mnuSchSub_8
        '
        Me.mnuSchSub.SetIndex(Me._mnuSchSub_8, CType(8, Short))
        Me._mnuSchSub_8.Index = 8
        Me._mnuSchSub_8.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuSchSub_8.Text = "Show Add Dialog"
        '
        '_mnuSchSub_9
        '
        Me.mnuSchSub.SetIndex(Me._mnuSchSub_9, CType(9, Short))
        Me._mnuSchSub_9.Index = 9
        Me._mnuSchSub_9.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuSchSub_9.Text = "UseOtherCategories"
        '
        '_mnuSchSub_10
        '
        Me.mnuSchSub.SetIndex(Me._mnuSchSub_10, CType(10, Short))
        Me._mnuSchSub_10.Index = 10
        Me._mnuSchSub_10.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuSchSub_10.Text = "<--Reserved-->"
        '
        '_mnuSchSub_11
        '
        Me.mnuSchSub.SetIndex(Me._mnuSchSub_11, CType(11, Short))
        Me._mnuSchSub_11.Index = 11
        Me._mnuSchSub_11.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuSchSub_11.Text = "AutoRedraw"
        '
        '_mnuSchSub_12
        '
        Me.mnuSchSub.SetIndex(Me._mnuSchSub_12, CType(12, Short))
        Me._mnuSchSub_12.Index = 12
        Me._mnuSchSub_12.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuSchSub_12.Text = "ShowProviderAvailableTime "
        '
        '_mnuSchSub_13
        '
        Me.mnuSchSub.SetIndex(Me._mnuSchSub_13, CType(13, Short))
        Me._mnuSchSub_13.Index = 13
        Me._mnuSchSub_13.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuSchSub_13.Text = "ShowProviderScheduleTime "
        '
        '_mnuSchSub_14
        '
        Me.mnuSchSub.SetIndex(Me._mnuSchSub_14, CType(14, Short))
        Me._mnuSchSub_14.Index = 14
        Me._mnuSchSub_14.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuSchSub_14.Text = "AllowEventHeader"
        '
        'mnuScheduleIncrementSub
        '
        '
        '_mnuScheduleIncrementSub_0
        '
        Me._mnuScheduleIncrementSub_0.Index = 0
        Me.mnuScheduleIncrementSub.SetIndex(Me._mnuScheduleIncrementSub_0, CType(0, Short))
        Me._mnuScheduleIncrementSub_0.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuScheduleIncrementSub_0.Text = "1 minute"
        '
        '_mnuScheduleIncrementSub_1
        '
        Me._mnuScheduleIncrementSub_1.Index = 1
        Me.mnuScheduleIncrementSub.SetIndex(Me._mnuScheduleIncrementSub_1, CType(1, Short))
        Me._mnuScheduleIncrementSub_1.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuScheduleIncrementSub_1.Text = "2 minute"
        '
        '_mnuScheduleIncrementSub_2
        '
        Me._mnuScheduleIncrementSub_2.Index = 2
        Me.mnuScheduleIncrementSub.SetIndex(Me._mnuScheduleIncrementSub_2, CType(2, Short))
        Me._mnuScheduleIncrementSub_2.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuScheduleIncrementSub_2.Text = "3 minute"
        '
        '_mnuScheduleIncrementSub_3
        '
        Me._mnuScheduleIncrementSub_3.Index = 3
        Me.mnuScheduleIncrementSub.SetIndex(Me._mnuScheduleIncrementSub_3, CType(3, Short))
        Me._mnuScheduleIncrementSub_3.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuScheduleIncrementSub_3.Text = "4 minute"
        '
        '_mnuScheduleIncrementSub_4
        '
        Me._mnuScheduleIncrementSub_4.Index = 4
        Me.mnuScheduleIncrementSub.SetIndex(Me._mnuScheduleIncrementSub_4, CType(4, Short))
        Me._mnuScheduleIncrementSub_4.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuScheduleIncrementSub_4.Text = "5 minute"
        '
        '_mnuScheduleIncrementSub_5
        '
        Me._mnuScheduleIncrementSub_5.Index = 5
        Me.mnuScheduleIncrementSub.SetIndex(Me._mnuScheduleIncrementSub_5, CType(5, Short))
        Me._mnuScheduleIncrementSub_5.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuScheduleIncrementSub_5.Text = "6 minute"
        '
        '_mnuScheduleIncrementSub_6
        '
        Me._mnuScheduleIncrementSub_6.Index = 6
        Me.mnuScheduleIncrementSub.SetIndex(Me._mnuScheduleIncrementSub_6, CType(6, Short))
        Me._mnuScheduleIncrementSub_6.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuScheduleIncrementSub_6.Text = "10 minute"
        '
        '_mnuScheduleIncrementSub_7
        '
        Me._mnuScheduleIncrementSub_7.Index = 7
        Me.mnuScheduleIncrementSub.SetIndex(Me._mnuScheduleIncrementSub_7, CType(7, Short))
        Me._mnuScheduleIncrementSub_7.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuScheduleIncrementSub_7.Text = "15 minute"
        '
        '_mnuScheduleIncrementSub_8
        '
        Me._mnuScheduleIncrementSub_8.Index = 8
        Me.mnuScheduleIncrementSub.SetIndex(Me._mnuScheduleIncrementSub_8, CType(8, Short))
        Me._mnuScheduleIncrementSub_8.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuScheduleIncrementSub_8.Text = "20 minute"
        '
        '_mnuScheduleIncrementSub_9
        '
        Me._mnuScheduleIncrementSub_9.Index = 9
        Me.mnuScheduleIncrementSub.SetIndex(Me._mnuScheduleIncrementSub_9, CType(9, Short))
        Me._mnuScheduleIncrementSub_9.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuScheduleIncrementSub_9.Text = "30 minute"
        '
        '_mnuScheduleIncrementSub_10
        '
        Me._mnuScheduleIncrementSub_10.Index = 10
        Me.mnuScheduleIncrementSub.SetIndex(Me._mnuScheduleIncrementSub_10, CType(10, Short))
        Me._mnuScheduleIncrementSub_10.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuScheduleIncrementSub_10.Text = "60 minute"
        '
        'mnuShowTextSub
        '
        '
        '_mnuShowTextSub_0
        '
        Me.mnuShowTextSub.SetIndex(Me._mnuShowTextSub_0, CType(0, Short))
        Me._mnuShowTextSub_0.Index = 0
        Me._mnuShowTextSub_0.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuShowTextSub_0.Text = "Display Text"
        '
        '_mnuShowTextSub_1
        '
        Me.mnuShowTextSub.SetIndex(Me._mnuShowTextSub_1, CType(1, Short))
        Me._mnuShowTextSub_1.Index = 1
        Me._mnuShowTextSub_1.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuShowTextSub_1.Text = "Subject"
        '
        'mnuWindowSub
        '
        '
        '_mnuWindowSub_0
        '
        Me.mnuWindowSub.SetIndex(Me._mnuWindowSub_0, CType(0, Short))
        Me._mnuWindowSub_0.Index = 0
        Me._mnuWindowSub_0.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuWindowSub_0.Text = "&Cascade"
        '
        '_mnuWindowSub_1
        '
        Me.mnuWindowSub.SetIndex(Me._mnuWindowSub_1, CType(1, Short))
        Me._mnuWindowSub_1.Index = 1
        Me._mnuWindowSub_1.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuWindowSub_1.Text = "Tile &Vertically"
        '
        '_mnuWindowSub_2
        '
        Me.mnuWindowSub.SetIndex(Me._mnuWindowSub_2, CType(2, Short))
        Me._mnuWindowSub_2.Index = 2
        Me._mnuWindowSub_2.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuWindowSub_2.Text = "Tile Horizontally"
        '
        '_mnuWindowSub_3
        '
        Me.mnuWindowSub.SetIndex(Me._mnuWindowSub_3, CType(3, Short))
        Me._mnuWindowSub_3.Index = 3
        Me._mnuWindowSub_3.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me._mnuWindowSub_3.Text = "&Arrange Icons"
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFile, Me.mnuSchedule, Me.mnuTest, Me.mnuWindow, Me.mnuHelp})
        '
        'mnuFile
        '
        Me.mnuFile.Index = 0
        Me.mnuFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFileNew, Me.mnuFileOpen, Me.mnuFileSave, Me.mnuFileClose, Me.mnuSep120, Me.mnuExportHTML, Me.mnuSep23, Me.mnuPrint, Me.mnuFilePrint, Me.mnuSep13, Me.mnuExit})
        Me.mnuFile.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuFile.Text = "File"
        '
        'mnuFileNew
        '
        Me.mnuFileNew.Index = 0
        Me.mnuFileNew.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuFileNew.Text = "&New"
        '
        'mnuFileOpen
        '
        Me.mnuFileOpen.Index = 1
        Me.mnuFileOpen.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuFileOpen.Text = "&Open"
        '
        'mnuFileSave
        '
        Me.mnuFileSave.Index = 2
        Me.mnuFileSave.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuFileSave.Text = "&Save"
        '
        'mnuFileClose
        '
        Me.mnuFileClose.Index = 3
        Me.mnuFileClose.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuFileClose.Text = "&Close"
        '
        'mnuSep120
        '
        Me.mnuSep120.Index = 4
        Me.mnuSep120.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSep120.Text = "-"
        '
        'mnuExportHTML
        '
        Me.mnuExportHTML.Index = 5
        Me.mnuExportHTML.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuExportHTML.Text = "Export HTML"
        '
        'mnuSep23
        '
        Me.mnuSep23.Index = 6
        Me.mnuSep23.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSep23.Text = "-"
        '
        'mnuPrint
        '
        Me.mnuPrint.Index = 7
        Me.mnuPrint.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuPrint.Shortcut = System.Windows.Forms.Shortcut.CtrlP
        Me.mnuPrint.Text = "&Print"
        '
        'mnuFilePrint
        '
        Me.mnuFilePrint.Index = 8
        Me.mnuFilePrint.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me._mnuFilePrintSub_0, Me._mnuFilePrintSub_1, Me._mnuFilePrintSub_2, Me._mnuFilePrintSub_3, Me._mnuFilePrintSub_4, Me._mnuFilePrintSub_5, Me._mnuFilePrintSub_6, Me._mnuFilePrintSub_7, Me._mnuFilePrintSub_8})
        Me.mnuFilePrint.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuFilePrint.Text = "Print in &Modes"
        '
        'mnuSep13
        '
        Me.mnuSep13.Index = 9
        Me.mnuSep13.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSep13.Text = "-"
        '
        'mnuExit
        '
        Me.mnuExit.Index = 10
        Me.mnuExit.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuExit.Shortcut = System.Windows.Forms.Shortcut.CtrlX
        Me.mnuExit.Text = "E&xit"
        '
        'mnuSchedule
        '
        Me.mnuSchedule.Index = 1
        Me.mnuSchedule.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me._mnuSchSub_0, Me._mnuSchSub_1, Me._mnuSchSub_2, Me._mnuSchSub_3, Me._mnuSchSub_4, Me._mnuSchSub_5, Me._mnuSchSub_6, Me._mnuSchSub_7, Me._mnuSchSub_8, Me._mnuSchSub_9, Me._mnuSchSub_10, Me._mnuSchSub_11, Me._mnuSchSub_12, Me._mnuSchSub_13, Me._mnuSchSub_14, Me.mnuSep11, Me.mnuDisplayMode, Me.mnuScheduleIncrement, Me.mnuSep5, Me.mnuShowText, Me.mnuSep102, Me.mnuRoom, Me.mnuSep6, Me.mnuSchColor, Me.mnuSep7, Me.mnuCategory})
        Me.mnuSchedule.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSchedule.Text = "&Schedule"
        '
        'mnuSep11
        '
        Me.mnuSep11.Index = 15
        Me.mnuSep11.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSep11.Text = "-"
        '
        'mnuDisplayMode
        '
        Me.mnuDisplayMode.Index = 16
        Me.mnuDisplayMode.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me._mnuDisplayModeSub_0, Me._mnuDisplayModeSub_1, Me._mnuDisplayModeSub_2, Me._mnuDisplayModeSub_3, Me._mnuDisplayModeSub_4, Me._mnuDisplayModeSub_5, Me._mnuDisplayModeSub_6, Me._mnuDisplayModeSub_7, Me._mnuDisplayModeSub_8, Me._mnuDisplayModeSub_9})
        Me.mnuDisplayMode.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuDisplayMode.Text = "Display Mode"
        '
        'mnuScheduleIncrement
        '
        Me.mnuScheduleIncrement.Index = 17
        Me.mnuScheduleIncrement.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me._mnuScheduleIncrementSub_0, Me._mnuScheduleIncrementSub_1, Me._mnuScheduleIncrementSub_2, Me._mnuScheduleIncrementSub_3, Me._mnuScheduleIncrementSub_4, Me._mnuScheduleIncrementSub_5, Me._mnuScheduleIncrementSub_6, Me._mnuScheduleIncrementSub_7, Me._mnuScheduleIncrementSub_8, Me._mnuScheduleIncrementSub_9, Me._mnuScheduleIncrementSub_10})
        Me.mnuScheduleIncrement.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuScheduleIncrement.Text = "ScheduleIncrement"
        '
        'mnuSep5
        '
        Me.mnuSep5.Index = 18
        Me.mnuSep5.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSep5.Text = "-"
        '
        'mnuShowText
        '
        Me.mnuShowText.Index = 19
        Me.mnuShowText.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me._mnuShowTextSub_0, Me._mnuShowTextSub_1})
        Me.mnuShowText.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuShowText.Text = "Show Text"
        '
        'mnuSep102
        '
        Me.mnuSep102.Index = 20
        Me.mnuSep102.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSep102.Text = "-"
        '
        'mnuRoom
        '
        Me.mnuRoom.Index = 21
        Me.mnuRoom.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuSchAddRoom, Me.mnuSchRemoveRoom})
        Me.mnuRoom.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuRoom.Text = "Rooms"
        '
        'mnuSchAddRoom
        '
        Me.mnuSchAddRoom.Index = 0
        Me.mnuSchAddRoom.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSchAddRoom.Text = "Add Room"
        '
        'mnuSchRemoveRoom
        '
        Me.mnuSchRemoveRoom.Index = 1
        Me.mnuSchRemoveRoom.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSchRemoveRoom.Text = "Remove Room"
        '
        'mnuSep6
        '
        Me.mnuSep6.Index = 22
        Me.mnuSep6.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSep6.Text = "-"
        '
        'mnuSchColor
        '
        Me.mnuSchColor.Index = 23
        Me.mnuSchColor.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me._mnuColorSub_0, Me._mnuColorSub_1})
        Me.mnuSchColor.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSchColor.Text = "Colors"
        '
        'mnuSep7
        '
        Me.mnuSep7.Index = 24
        Me.mnuSep7.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSep7.Text = "-"
        '
        'mnuCategory
        '
        Me.mnuCategory.Index = 25
        Me.mnuCategory.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuSchAddCategory, Me.mnuSchDeleteCategory})
        Me.mnuCategory.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuCategory.Text = "Category"
        '
        'mnuSchAddCategory
        '
        Me.mnuSchAddCategory.Index = 0
        Me.mnuSchAddCategory.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSchAddCategory.Text = "Add Category..."
        '
        'mnuSchDeleteCategory
        '
        Me.mnuSchDeleteCategory.Index = 1
        Me.mnuSchDeleteCategory.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSchDeleteCategory.Text = "Delete Category..."
        '
        'mnuTest
        '
        Me.mnuTest.Index = 2
        Me.mnuTest.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuToggleMonthMode, Me.mnuSep57, Me.mnuDoctorsOffice, Me.mnuSep12, Me.mnuAdd5, Me.mnuTestDefaultDialogs, Me.mnuCustomDialogs, Me.mnuCustomIcons, Me.mnuTestBlocking, Me.mnuApptColors, Me.mnuTestNextFit, Me.mnuTestNextFitBlocking, Me.mnuSep8, Me.mnuCategoryOtherAdd})
        Me.mnuTest.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuTest.Text = "&Tests"
        '
        'mnuToggleMonthMode
        '
        Me.mnuToggleMonthMode.Index = 0
        Me.mnuToggleMonthMode.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuToggleMonthMode.Text = "Toggle Normal/Month Mode"
        '
        'mnuSep57
        '
        Me.mnuSep57.Index = 1
        Me.mnuSep57.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSep57.Text = "-"
        '
        'mnuDoctorsOffice
        '
        Me.mnuDoctorsOffice.Index = 2
        Me.mnuDoctorsOffice.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuDoctorsOffice.Text = "Doctor's Office"
        '
        'mnuSep12
        '
        Me.mnuSep12.Index = 3
        Me.mnuSep12.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSep12.Text = "-"
        '
        'mnuAdd5
        '
        Me.mnuAdd5.Index = 4
        Me.mnuAdd5.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuAdd5.Text = "5 Test Appointments"
        '
        'mnuTestDefaultDialogs
        '
        Me.mnuTestDefaultDialogs.Index = 5
        Me.mnuTestDefaultDialogs.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuTestDefaultDialogs.Text = "Default Dialogs"
        '
        'mnuCustomDialogs
        '
        Me.mnuCustomDialogs.Index = 6
        Me.mnuCustomDialogs.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuCustomDialogs.Text = "Custom Dialogs"
        '
        'mnuCustomIcons
        '
        Me.mnuCustomIcons.Index = 7
        Me.mnuCustomIcons.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuCustomIcons.Text = "Custom Icons"
        '
        'mnuTestBlocking
        '
        Me.mnuTestBlocking.Index = 8
        Me.mnuTestBlocking.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuTestBlocking.Text = "Blocking Demo"
        '
        'mnuApptColors
        '
        Me.mnuApptColors.Index = 9
        Me.mnuApptColors.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuApptColors.Text = "Appointment Colors"
        '
        'mnuTestNextFit
        '
        Me.mnuTestNextFit.Index = 10
        Me.mnuTestNextFit.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuTestNextFit.Text = "Next Fit"
        '
        'mnuTestNextFitBlocking
        '
        Me.mnuTestNextFitBlocking.Index = 11
        Me.mnuTestNextFitBlocking.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuTestNextFitBlocking.Text = "Next Fit w/ Blocking"
        '
        'mnuSep8
        '
        Me.mnuSep8.Index = 12
        Me.mnuSep8.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuSep8.Text = "-"
        '
        'mnuCategoryOtherAdd
        '
        Me.mnuCategoryOtherAdd.Index = 13
        Me.mnuCategoryOtherAdd.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuCategoryOtherAdd.Text = "Add Other Categories"
        '
        'mnuWindow
        '
        Me.mnuWindow.Index = 3
        Me.mnuWindow.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me._mnuWindowSub_0, Me._mnuWindowSub_1, Me._mnuWindowSub_2, Me._mnuWindowSub_3})
        Me.mnuWindow.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuWindow.Text = "&Window"
        '
        'mnuHelp
        '
        Me.mnuHelp.Index = 4
        Me.mnuHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuHelpContents, Me.mnuHelpSearch})
        Me.mnuHelp.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuHelp.Text = "&Help"
        '
        'mnuHelpContents
        '
        Me.mnuHelpContents.Enabled = False
        Me.mnuHelpContents.Index = 0
        Me.mnuHelpContents.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuHelpContents.Text = "&Contents"
        '
        'mnuHelpSearch
        '
        Me.mnuHelpSearch.Enabled = False
        Me.mnuHelpSearch.Index = 1
        Me.mnuHelpSearch.MergeType = System.Windows.Forms.MenuMerge.Remove
        Me.mnuHelpSearch.Text = "&Search"
        '
        'frmMDI
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.SystemColors.AppWorkspace
        Me.ClientSize = New System.Drawing.Size(344, 249)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Picture1, Me.ImageList1, Me.Dialog1})
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.IsMdiContainer = True
        Me.Location = New System.Drawing.Point(4, 40)
        Me.Menu = Me.MainMenu1
        Me.Name = "frmMDI"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Picture1.ResumeLayout(False)
        CType(Me.ImageList1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Dialog1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.mnuColorSub, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.mnuDisplayModeSub, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.mnuFilePrintSub, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.mnuSchSub, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.mnuScheduleIncrementSub, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.mnuShowTextSub, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.mnuWindowSub, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub
#End Region 
#Region "Upgrade Support "
	Private Shared m_vb6FormDefInstance As frmMDI
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As frmMDI
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New frmMDI()
				m_InitializingDefInstance = False
			End If
			DefInstance = m_vb6FormDefInstance
		End Get
		Set
			m_vb6FormDefInstance = Value
		End Set
	End Property
#End Region 
	
	Dim RecentFiles As New NameCollection
    Dim iLastMenu As Short
    Dim Forms As Collection = New Collection()

    Private Enum ScheduleTypeConstants
        stDay = 1
        stRoom = 2
    End Enum

    Public CurForm As System.Windows.Forms.Form
    Private Function GetRandomColor() As System.Drawing.Color

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "GetRandomColor"

        GetRandomColor = System.Drawing.ColorTranslator.FromOle(RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255))

EndSub:
        Exit Function

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Function
    Private Function GetRandomNumber(ByVal lLow As Integer, ByRef lHigh As Integer) As Integer

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "GetRandomNumber"

        GetRandomNumber = lLow + (Rnd() * (lHigh - lLow))

EndSub:
        Exit Function

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Function
    Private Sub UpdateMenu()

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "UpdateMenu"

        Dim bValue As Boolean
        Dim F As frmChild

        bValue = (Me.ActiveMdiChild Is Nothing)
        If Not bValue Then
            F = Me.ActiveMdiChild
            Me.mnuSchSub(0).Checked = IIf(F.Schedule1.AllowAdd, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuSchSub(1).Checked = IIf(F.Schedule1.AllowDelete, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuSchSub(2).Checked = IIf(F.Schedule1.AllowEdit, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuSchSub(3).Checked = IIf(F.Schedule1.AllowCopy, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuSchSub(4).Checked = IIf(F.Schedule1.AllowMove, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuSchSub(5).Checked = IIf(F.Schedule1.ConflictWarn, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuSchSub(6).Checked = IIf(F.Schedule1.Enabled, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuSchSub(7).Checked = IIf(F.Schedule1.CategoryBar, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuSchSub(8).Checked = IIf(F.Schedule1.AllowAddDialog, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuSchSub(9).Checked = IIf(F.Schedule1.UseOtherCategories, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)

            Me.mnuSchSub(11).Checked = IIf(F.Schedule1.AutoRedraw, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuSchSub(12).Checked = IIf(F.Schedule1.ShowProviderAvailableTime, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuSchSub(13).Checked = IIf(F.Schedule1.ShowProviderScheduledTime, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuSchSub(14).Checked = IIf(F.Schedule1.AllowEventHeader, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)

            Me.mnuDisplayModeSub(0).Checked = IIf(F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayLeftTimeTop, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuDisplayModeSub(1).Checked = IIf(F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalRoomLeftTimeTop, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuDisplayModeSub(2).Checked = IIf(F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayRoomLeftTimeTop, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuDisplayModeSub(3).Checked = IIf(F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayTopTimeLeft, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuDisplayModeSub(4).Checked = IIf(F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalRoomTopTimeLeft, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuDisplayModeSub(5).Checked = IIf(F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayRoomTopTimeLeft, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuDisplayModeSub(6).Checked = IIf(F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayLeftRoomTopNoTime, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuDisplayModeSub(7).Checked = IIf(F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayTopRoomLeftNoTime, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuDisplayModeSub(8).Checked = IIf(F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcMonth, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuDisplayModeSub(9).Checked = IIf(F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcList, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)

            Me.mnuScheduleIncrementSub(0).Checked = IIf(F.Schedule1.ScheduleIncrement = Scheduler.ScheduleIncrementConstants.sch05Minute, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuScheduleIncrementSub(1).Checked = IIf(F.Schedule1.ScheduleIncrement = Scheduler.ScheduleIncrementConstants.sch10Minute, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuScheduleIncrementSub(2).Checked = IIf(F.Schedule1.ScheduleIncrement = Scheduler.ScheduleIncrementConstants.sch15Minute, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuScheduleIncrementSub(3).Checked = IIf(F.Schedule1.ScheduleIncrement = Scheduler.ScheduleIncrementConstants.sch20Minute, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuScheduleIncrementSub(4).Checked = IIf(F.Schedule1.ScheduleIncrement = Scheduler.ScheduleIncrementConstants.sch30Minute, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
            Me.mnuScheduleIncrementSub(5).Checked = IIf(F.Schedule1.ScheduleIncrement = Scheduler.ScheduleIncrementConstants.sch60Minute, System.Windows.Forms.CheckState.Checked, System.Windows.Forms.CheckState.Unchecked)
        Else
            Me.mnuSchSub(0).Checked = System.Windows.Forms.CheckState.Unchecked
            Me.mnuSchSub(1).Checked = System.Windows.Forms.CheckState.Unchecked
            Me.mnuSchSub(2).Checked = System.Windows.Forms.CheckState.Unchecked
            Me.mnuSchSub(3).Checked = System.Windows.Forms.CheckState.Unchecked
            Me.mnuSchSub(4).Checked = System.Windows.Forms.CheckState.Unchecked
            Me.mnuSchSub(5).Checked = System.Windows.Forms.CheckState.Unchecked
            Me.mnuSchSub(6).Checked = System.Windows.Forms.CheckState.Unchecked
            Me.mnuSchSub(7).Checked = System.Windows.Forms.CheckState.Unchecked
            Me.mnuSchSub(8).Checked = System.Windows.Forms.CheckState.Unchecked
            Me.mnuSchSub(9).Checked = System.Windows.Forms.CheckState.Unchecked
            Me.mnuSchSub(10).Checked = System.Windows.Forms.CheckState.Unchecked
            Me.mnuSchSub(11).Checked = System.Windows.Forms.CheckState.Unchecked
            Me.mnuSchSub(12).Checked = System.Windows.Forms.CheckState.Unchecked
            Me.mnuSchSub(13).Checked = System.Windows.Forms.CheckState.Unchecked
            Me.mnuSchSub(14).Checked = System.Windows.Forms.CheckState.Unchecked
        End If

        Me.mnuSchSub(0).Enabled = Not bValue
        Me.mnuSchSub(1).Enabled = Not bValue
        Me.mnuSchSub(2).Enabled = Not bValue
        Me.mnuSchSub(3).Enabled = Not bValue
        Me.mnuSchSub(4).Enabled = Not bValue
        Me.mnuSchSub(5).Enabled = Not bValue
        Me.mnuSchSub(6).Enabled = Not bValue
        Me.mnuSchSub(7).Enabled = Not bValue
        Me.mnuSchSub(8).Enabled = Not bValue
        Me.mnuSchSub(9).Enabled = Not bValue
        Me.mnuSchSub(10).Enabled = Not bValue
        Me.mnuSchSub(11).Enabled = Not bValue
        Me.mnuSchSub(12).Enabled = Not bValue
        Me.mnuSchSub(13).Enabled = Not bValue
        Me.mnuSchSub(14).Enabled = Not bValue
        Me.mnuDisplayMode.Enabled = Not bValue
        Me.mnuScheduleIncrement.Enabled = Not bValue

        Me.mnuFileSave.Enabled = Not bValue
        Me.mnuFileClose.Enabled = Not bValue
        Me.mnuExportHTML.Enabled = Not bValue
        Me.mnuPrint.Enabled = Not bValue
        Me.mnuFilePrint.Enabled = Not bValue
        Me.mnuSchColor.Enabled = Not bValue
        Me.mnuCategory.Enabled = Not bValue

        mnuShowText.Enabled = Not bValue
        mnuRoom.Enabled = Not bValue
        mnuSchAddRoom.Enabled = Not bValue
        mnuSchRemoveRoom.Enabled = Not bValue
        mnuCategoryOtherAdd.Enabled = Not bValue
        mnuToggleMonthMode.Enabled = Not bValue

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub
        Resume

    End Sub
    Public Sub Initialize()

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "Initialize"

        'Tell the user what this program is for
        Call MsgBox("This sample program will display many different feature of the GbSchedule component. Please run the tests on the 'test' menu. There are several tests that will demonstrate advanced features that can be used to enhance your scheduling application.", MsgBoxStyle.Information)

        Me.Text = System.Diagnostics.FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly.Location).CompanyName & " " & System.Reflection.Assembly.GetExecutingAssembly.GetName.Name
        Me.Width = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width) * 0.6)
        Me.Height = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height) * 0.6)
        Call Me.UpdateMenu()

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub
        Resume

    End Sub
    Private Sub frmMDI_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "MDIForm_Load"

        Call Initialize()

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub
        Resume

    End Sub
    Public Sub DisplayMessage(ByVal sMsg As String, ByVal bErase As Boolean)

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "DisplayMessage"

        lblTip.Text = sMsg
        lblTip.Refresh()

        If bErase Then
            Timer1.Enabled = bErase
        End If

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuApptColors_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuApptColors.Popup
        mnuApptColors_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuApptColors_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuApptColors.Click

        'This procedure makes a blank schedule with no appointments

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuApptColors_Click"

        Dim NewAppt As Scheduler.CScheduleEl
        Dim NewChild As frmChild

        'Tell the user what we are doing
        Call MsgBox("The schedule will display appointments with custom colors.", MsgBoxStyle.Information)

        NewChild = FileNew()

        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor

        'Setup this schedule, we need to set the start of the day and
        'the length of the schedule and such
        NewChild.Schedule1.ImageList = Me.ImageList1
        Call NewChild.Schedule1.SetMinMaxDate(#1/1/2002#, #1/31/2002#)
        NewChild.Schedule1.StartTime = CStr(#8:00:00 AM#)
        NewChild.Schedule1.DayLength = 10
        NewChild.Schedule1.ScheduleIncrement = Scheduler.ScheduleIncrementConstants.sch30Minute
        NewChild.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayTopTimeLeft
        NewChild.Schedule1.AllowAddDialog = True
        NewChild.Schedule1.AllowAdd = True
        NewChild.Schedule1.AllowDelete = True
        NewChild.Schedule1.AllowEdit = True

        'Add Appointments
        NewAppt = NewChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(0), #8:00:00 AM#, 120, "Back Color 1")
        NewAppt.BackColor = System.Convert.ToUInt32(&HC0FFC0)
        NewAppt = NewChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(0), #11:00:00 AM#, 90, "Back Color 2")
        NewAppt.BackColor = System.Convert.ToUInt32(&HFFFFC0)
        NewAppt = NewChild.Schedule1.ScheduleItems.Add("", #1/2/2002#, CStr(0), #9:00:00 AM#, 180, "Back/Fore Colors")
        NewAppt.BackColor = System.Convert.ToUInt32(&H404080)
        NewAppt.ForeColor = System.Convert.ToUInt32(&HFFFF)

EndSub:
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuCustomDialogs_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuCustomDialogs.Popup
        mnuCustomDialogs_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuCustomDialogs_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuCustomDialogs.Click

        'This procedure makes a blank schedule with no appointments

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuCustomDialogs_Click"

        Const cMaxRooms As Short = 3

        Dim i As Short
        Dim NewAppt As Scheduler.CScheduleEl
        Dim NewChild As frmChild

        'Tell the user what we are doing
        Call MsgBox("The new schedule will be blank and allow you to add appointments by double clicking. The default Add and Edit dialogs will NOT appear when you do so. A message box will displayed where you can add your own Custom dialog box. For more infomration on Custom dialog boxes please see the help file.", MsgBoxStyle.Information)

        NewChild = FileNew()

        'Add some category information to the Schedule
        Call AddCategories(NewChild)

        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor

        'Setup this schedule, we need to set the start of the day and
        'the length of the schedule and such
        Call NewChild.Schedule1.SetMinMaxDate(#1/1/2002#, #1/31/2002#)
        NewChild.Schedule1.StartTime = CStr(#8:00:00 AM#)
        NewChild.Schedule1.DayLength = 10
        NewChild.Schedule1.ScheduleIncrement = Scheduler.ScheduleIncrementConstants.sch30Minute
        NewChild.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayTopTimeLeft
        NewChild.Schedule1.AllowAddDialog = False
        NewChild.Schedule1.AllowAdd = True
        NewChild.Schedule1.AllowDelete = True
        NewChild.Schedule1.AllowEdit = True

        'Tell the Form to use a custom edit dialog
        NewChild.UseCustomDialog = True

EndSub:
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuCustomIcons_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuCustomIcons.Popup
        mnuCustomIcons_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuCustomIcons_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuCustomIcons.Click

        'This procedure makes a blank schedule with no appointments

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuCustomIcons_Click"

        Const cMaxRooms As Short = 3

        Dim NewAppt As Scheduler.CScheduleEl
        Dim NewChild As frmChild

        'Tell the user what we are doing
        Call MsgBox("The schedule will display custom icons on the appointments", MsgBoxStyle.Information)

        NewChild = FileNew()

        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor

        'Setup this schedule, we need to set the start of the day and
        'the length of the schedule and such
        NewChild.Schedule1.ImageList = Me.ImageList1
        Call NewChild.Schedule1.SetMinMaxDate(#1/1/2002#, #1/31/2002#)
        NewChild.Schedule1.StartTime = CStr(#8:00:00 AM#)
        NewChild.Schedule1.DayLength = 10
        NewChild.Schedule1.ScheduleIncrement = Scheduler.ScheduleIncrementConstants.sch30Minute
        NewChild.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayTopTimeLeft
        NewChild.Schedule1.AllowAddDialog = True
        NewChild.Schedule1.AllowAdd = True
        NewChild.Schedule1.AllowDelete = True
        NewChild.Schedule1.AllowEdit = True

        'Attention Icon
        NewAppt = NewChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(0), #8:00:00 AM#, 120, "1 Icon")
        Call NewAppt.Icons.Add("attention")

        'Warning/Organize Icon
        NewAppt = NewChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(0), #11:00:00 AM#, 90, "2 Icons")
        Call NewAppt.Icons.Add("warning")
        Call NewAppt.Icons.Add("organize")

        'All Icon
        NewAppt = NewChild.Schedule1.ScheduleItems.Add("", #1/2/2002#, CStr(0), #9:00:00 AM#, 180, "All Icons")
        Call NewAppt.Icons.Add("attention")
        Call NewAppt.Icons.Add("warning")
        Call NewAppt.Icons.Add("caution")
        Call NewAppt.Icons.Add("organize")

EndSub:
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuDisplayModeSub_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuDisplayModeSub.Popup
        mnuDisplayModeSub_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuDisplayModeSub_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuDisplayModeSub.Click
        Dim Index As Short = mnuDisplayModeSub.GetIndex(eventSender)

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuDisplayModeSub_Click"

        Dim F As frmChild

        'Make sure that we have a child day window with focus
        If (Me.ActiveMdiChild Is Nothing) Then GoTo EndSub
        F = Me.ActiveMdiChild

        Select Case Index
            Case 0 : F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayLeftTimeTop
            Case 1 : F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalRoomLeftTimeTop
            Case 2 : F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayRoomLeftTimeTop
            Case 3 : F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayTopTimeLeft
            Case 4 : F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalRoomTopTimeLeft
            Case 5 : F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayRoomTopTimeLeft
            Case 6 : F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayLeftRoomTopNoTime
            Case 7 : F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayTopRoomLeftNoTime
            Case 8 : F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcMonth
            Case 9 : F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcList
        End Select

        mnuDisplayModeSub(Index).Checked = True

EndSub:
        'UPGRADE_NOTE: Object F may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1029"'
        F = Nothing
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuDoctorsOffice_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuDoctorsOffice.Popup
        mnuDoctorsOffice_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuDoctorsOffice_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuDoctorsOffice.Click

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuDoctorsOffice_Click"

        Dim i As Short
        Dim NewAppt As Scheduler.CScheduleEl
        Dim NewChild As frmChild
        Dim NewProv As Scheduler.CProviderEl
        Dim sMsg As String

        '****************************************************************************************
        'Tell the user what we are doing
        sMsg = "This will create a schedule that mimics a doctor's office. "
        sMsg = sMsg & "There are some appointments added to demonstrate the different properties an appointment can have. "
        sMsg = sMsg & "Each appointment has been assigned a Category. You can build a list of any categories you wish. "
        sMsg = sMsg & "Also, each appointment has been assigned a Provider. In an office, you would want to know which person "
        sMsg = sMsg & "has been assigned to take care of which patient. In large doctor's office this is very important. "
        sMsg = sMsg & "The schedule is displayed in RoomOnly mode which means that every window will be a different day. "
        sMsg = sMsg & "This makes it easy for assistants to keep the days straight in their heads." & vbCrLf & vbCrLf
        sMsg = sMsg & "Move your mouse over the Category and Provider bars and you will see tooltips with the name of each. "
        sMsg = sMsg & "Also, each appointment has a colored bar on its left side. This will be the color of the assigned Category "
        sMsg = sMsg & "or Provider, depending on which mode you are in. You can mouse the mouse over this bar as well for a description. "
        sMsg = sMsg & "You can switch between Category and Provider modes using the Check Marks at the Top/Left of the screen."
        Call MsgBox(sMsg, MsgBoxStyle.Information)
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor

        '****************************************************************************************
        'Create a new window
        NewChild = FileNew()
        NewChild.Schedule1.AutoRedraw = False
        NewChild.Schedule1.ColumnWidth = 70

        '****************************************************************************************
        'Add some category information to the Schedule
        Dim Categories() As String = {"Major", ConvertColor(System.Drawing.Color.Red).ToString(), "Surgery/perio.", ConvertColor(System.Drawing.Color.Yellow).ToString(), "Restorative", ConvertColor(System.Drawing.Color.Lime).ToString(), "Diag./prevent", ConvertColor(System.Drawing.Color.Blue).ToString(), "Orthodontics", ConvertColor(System.Drawing.Color.Magenta).ToString()}
        Call AddCategories(NewChild, Categories)

        '****************************************************************************************
        'Setup this schedule, we need to set the start of the day and
        'the length of the schedule and such
        Call NewChild.Schedule1.SetMinMaxDate(#1/1/2002#, #1/1/2002#)
        NewChild.Schedule1.StartTime = CStr(#8:00:00 AM#)
        NewChild.Schedule1.DayLength = 10
        NewChild.Schedule1.ScheduleIncrement = Scheduler.ScheduleIncrementConstants.sch30Minute

        '****************************************************************************************
        'Add some rooms to this schedule
        Call NewChild.Schedule1.Rooms.Clear()
        Call NewChild.Schedule1.Rooms.Add("Main Room")
        Call NewChild.Schedule1.Rooms.Add("Operatory I")
        Call NewChild.Schedule1.Rooms.Add("Operatory II")

        '****************************************************************************************
        'This is the captions above the Available and Schedule Provider times
        NewChild.Schedule1.Providers.CaptionAvailable = "Available Times"
        NewChild.Schedule1.Providers.CaptionScheduled = "Scheduled Times"

        'Add the Providers that work in the office
        Call NewChild.Schedule1.Providers.Clear()

        NewProv = NewChild.Schedule1.Providers.Add("Dr. Williams", System.Convert.ToUInt32(ConvertColor(System.Drawing.Color.Blue)))
        Call NewProv.AvailableTimes.Add(#8:00:00 AM#, 270)

        NewProv = NewChild.Schedule1.Providers.Add("Dr. Johnson", System.Convert.ToUInt32(ConvertColor(System.Drawing.Color.Yellow)))
        Call NewProv.AvailableTimes.Add(#8:00:00 AM#, 180)

        NewProv = NewChild.Schedule1.Providers.Add("Judy", System.Convert.ToUInt32(ConvertColor(System.Drawing.Color.Lime)))
        Call NewProv.AvailableTimes.Add(#9:00:00 AM#, 180)
        Call NewProv.AvailableTimes.Add(#2:00:00 PM#, 240)

        NewProv = NewChild.Schedule1.Providers.Add("Tom", System.Convert.ToUInt32(ConvertColor(System.Drawing.Color.Red)))
        Call NewProv.AvailableTimes.Add(#9:00:00 AM#, 150)

        NewProv = NewChild.Schedule1.Providers.Add("Suzy", System.Convert.ToUInt32(ConvertColor(System.Drawing.Color.Magenta)))
        Call NewProv.AvailableTimes.Add(#9:00:00 AM#, 360)

        '****************************************************************************************
        'Add some appointments so the user can see a demonstration
        Call NewChild.Schedule1.ScheduleItems.Clear()
        NewAppt = NewChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(1), #3:30:00 PM#, 150, "John Doe", 1)
        NewAppt.Provider = 3

        NewAppt = NewChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(2), #9:00:00 AM#, 90, "Cathy Mays", 2)
        NewAppt.Provider = 1

        NewAppt = NewChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(3), #10:00:00 AM#, 240, "Donald Mai", 3)
        NewAppt.Provider = 5

        NewAppt = NewChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(1), #11:00:00 AM#, 90, "Jim Hughs", 4)
        NewAppt.Provider = 1

        NewAppt = NewChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(2), #2:00:00 PM#, 90, "Jack Morris", 5)
        NewAppt.Provider = 3

        '****************************************************************************************
        'Display in Room only mode. For the Office we want only to
        'display one day at a time. The Caption will display the Date
        NewChild.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalRoomTopTimeLeft
        NewChild.Text = "Schedule [" & VB6.Format(NewChild.Schedule1.MinDate, "Long Date") & "]"

        NewChild.WindowState = System.Windows.Forms.FormWindowState.Maximized
        NewChild.Schedule1.AutoRedraw = True

EndSub:
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuExportHTML_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuExportHTML.Popup
        mnuExportHTML_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuExportHTML_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuExportHTML.Click

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuFileExportHTML_Click"

        Dim oHTMLParameter As New Scheduler.CHTMLParameters()
        Dim ChildForm As frmChild

        ChildForm = Me.ActiveForm

        'Make sure that we have a child day window with focus
        If (ChildForm Is Nothing) Then GoTo EndSub
        If ChildForm.Tag <> "R" Then GoTo EndSub

        oHTMLParameter.FileName = "c:\myschedule.htm"
        oHTMLParameter.UseFrames = False
        oHTMLParameter.Overwrite = True
        oHTMLParameter.TableOnly = False
        oHTMLParameter.PageTitle = "My Test Schedule"
        Call ChildForm.Schedule1.ExportHTML(oHTMLParameter)
        Call MsgBox("The schedule was exported to '" & oHTMLParameter.FileName & "'", MsgBoxStyle.Information)
        'UPGRADE_NOTE: Object oHTMLParameter may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1029"'
        oHTMLParameter = Nothing

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuFileClose_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuFileClose.Popup
        mnuFileClose_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuFileClose_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuFileClose.Click
        Me.ActiveMdiChild.Close()
    End Sub
    Public Sub mnuFileNew_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuFileNew.Popup
        mnuFileNew_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuFileNew_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuFileNew.Click

        Call FileNew()

    End Sub
    Public Sub mnuFileOpen_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuFileOpen.Popup
        mnuFileOpen_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuFileOpen_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuFileOpen.Click

        On Error GoTo ErrHandler

        Dim oChild As frmChild
        Dim oXMLParameters As New Scheduler.CXMLParameters()

        Dialog1.DefaultExt = "gml"
        Dialog1.DialogTitle = "Open"
        Dialog1.Filter = "Gravitybox Files|*.gml"
        Dialog1.Flags = cdlOFNExplorer Or MSComDlg.FileOpenConstants.cdlOFNFileMustExist Or cdlOFNHideReadOnly
        Dialog1.CancelError = True
        Call Dialog1.ShowOpen()
        oChild = FileNew()
        oChild.Schedule1.StartTime = CStr(#8:00:00 AM#)
        oChild.Schedule1.DayLength = 10
        Call oChild.Schedule1.SetMinMaxDate(#1/1/2002#, #1/5/2002#)
        Call oChild.Schedule1.Rooms.Clear()
        Call oChild.Schedule1.Categories.Clear()
        Call oChild.Schedule1.Providers.Clear()

        oXMLParameters.FileName = Dialog1.FileName
        Call oXMLParameters.UseAllCollections(True)
        Call oChild.Schedule1.ImportXML(oXMLParameters)
        'UPGRADE_NOTE: Object oXMLParameters may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1029"'
        oXMLParameters = Nothing
        oChild.Filename = Dialog1.FileName

        Exit Sub

ErrHandler:

    End Sub
    Public Sub mnuFilePrintSub_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuFilePrintSub.Popup
        mnuFilePrintSub_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuFilePrintSub_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuFilePrintSub.Click
        Dim Index As Short = mnuFilePrintSub.GetIndex(eventSender)

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuFilePrintSub_Click"

        Dim F As frmChild

        F = Me.ActiveMdiChild

        Select Case Index
            Case 0
                'Do Nothing (Print Current Mode)
            Case 2
                F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayTopTimeLeft
            Case 3
                F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalRoomTopTimeLeft
            Case 4
                F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayRoomTopTimeLeft
            Case 6
                F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayLeftTimeTop
            Case 7
                F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalRoomLeftTimeTop
            Case 8
                F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayRoomTopTimeLeft
        End Select

        Call mnuPrint_Click(mnuPrint, New System.EventArgs())

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuFileSave_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuFileSave.Popup
        mnuFileSave_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuFileSave_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuFileSave.Click

        On Error GoTo ErrHandler

        Dim oChild As frmChild
        Dim oXMLParameters As New Scheduler.CXMLParameters()

        oChild = Me.ActiveMdiChild

        'If there is no filename then prompt for one
        If oChild.Filename = "" Then
            Dialog1.DefaultExt = "gml"
            Dialog1.DialogTitle = "Save"
            Dialog1.Filter = "Gravitybox Files|*.gml"
            Dialog1.Flags = cdlOFNExplorer Or cdlOFNHideReadOnly Or cdlOFNOverwritePrompt
            Dialog1.CancelError = True
            Call Dialog1.ShowSave()
            oChild.Filename = Dialog1.FileName
        End If

        If oChild.Filename <> "" Then
            oXMLParameters.FileName = oChild.Filename
            Call oXMLParameters.UseAllCollections(True)
            oXMLParameters.Overwrite = True
            Call oChild.Schedule1.ExportXML(oXMLParameters)
        End If
        'UPGRADE_NOTE: Object oXMLParameters may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1029"'
        oXMLParameters = Nothing

        Exit Sub

ErrHandler:

    End Sub
    Public Sub mnuPrint_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuPrint.Popup
        mnuPrint_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuPrint_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuPrint.Click

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuPrint_Click"

        Dim NewF As frmChild
        Dim oPrinterParameter As New Scheduler.CPrinterParameter()
        Dim ii As Long
        Dim Printers As System.Windows.Forms.PrintDialog
        Dim PrinterName As String = ""

        For Each PrinterName In Printers.PrinterSettings.InstalledPrinters
            Printers.PrinterSettings.PrinterName = PrinterName
            If Printers.PrinterSettings.IsDefaultPrinter Then
                Exit For
            End If
        Next

        NewF = Me.ActiveForm
        oPrinterParameter.PrinterDeviceName = PrinterName

        oPrinterParameter.Orientation = 1
        If NewF.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalRoomTopTimeLeft Then
            'Room
            Call NewF.Schedule1.GoPrint(1, NewF.Schedule1.Rooms.Count, NewF.Schedule1.StartTime, DateAdd(Microsoft.VisualBasic.DateInterval.Hour, NewF.Schedule1.DayLength, CDate(NewF.Schedule1.StartTime)), oPrinterParameter)
        ElseIf NewF.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayTopTimeLeft Then
            'Day
            Call NewF.Schedule1.GoPrint(NewF.Schedule1.MinDate, NewF.Schedule1.MaxDate, NewF.Schedule1.StartTime, DateAdd(Microsoft.VisualBasic.DateInterval.Hour, NewF.Schedule1.DayLength, CDate(NewF.Schedule1.StartTime)), oPrinterParameter)
        End If

        'Prompt User that Printing is complete!!
        Call MsgBox("Printing Complete!", MsgBoxStyle.Information)

EndSub:
        'UPGRADE_NOTE: Object oPrinterParameter may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1029"'
        oPrinterParameter = Nothing
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuScheduleIncrementSub_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuScheduleIncrementSub.Popup
        mnuScheduleIncrementSub_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuScheduleIncrementSub_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuScheduleIncrementSub.Click
        Dim Index As Short = mnuScheduleIncrementSub.GetIndex(eventSender)

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuScheduleIncrementSub_Click"

        Dim lValue As Integer
        Dim ChildForm As frmChild

        ChildForm = Me.ActiveForm

        Select Case Index
            Case 0 : lValue = Scheduler.ScheduleIncrementConstants.sch01Minute
            Case 1 : lValue = Scheduler.ScheduleIncrementConstants.sch02Minute
            Case 2 : lValue = Scheduler.ScheduleIncrementConstants.sch03Minute
            Case 3 : lValue = Scheduler.ScheduleIncrementConstants.sch04Minute
            Case 4 : lValue = Scheduler.ScheduleIncrementConstants.sch05Minute
            Case 5 : lValue = Scheduler.ScheduleIncrementConstants.sch06Minute
            Case 6 : lValue = Scheduler.ScheduleIncrementConstants.sch10Minute
            Case 7 : lValue = Scheduler.ScheduleIncrementConstants.sch15Minute
            Case 8 : lValue = Scheduler.ScheduleIncrementConstants.sch20Minute
            Case 9 : lValue = Scheduler.ScheduleIncrementConstants.sch30Minute
            Case 10 : lValue = Scheduler.ScheduleIncrementConstants.sch60Minute
        End Select

        ChildForm.Schedule1.ScheduleIncrement = lValue

        mnuScheduleIncrementSub(0).Checked = (Index = 0)
        mnuScheduleIncrementSub(1).Checked = (Index = 1)
        mnuScheduleIncrementSub(2).Checked = (Index = 2)
        mnuScheduleIncrementSub(3).Checked = (Index = 3)
        mnuScheduleIncrementSub(4).Checked = (Index = 4)
        mnuScheduleIncrementSub(5).Checked = (Index = 5)
        mnuScheduleIncrementSub(6).Checked = (Index = 6)
        mnuScheduleIncrementSub(7).Checked = (Index = 7)
        mnuScheduleIncrementSub(8).Checked = (Index = 8)
        mnuScheduleIncrementSub(9).Checked = (Index = 9)
        mnuScheduleIncrementSub(10).Checked = (Index = 10)

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub

    Public Sub mnuShowText_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuShowText.Popup
        mnuShowText_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuShowText_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuShowText.Click

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuShowText_Click"

        Dim F As frmChild

        F = Me.ActiveMdiChild
        If Not (F Is Nothing) Then
            mnuShowTextSub(0).Checked = (F.Schedule1.TextDisplay = Scheduler.TextDisplayConstants.ttdcDisplayText)
            mnuShowTextSub(1).Checked = (F.Schedule1.TextDisplay = Scheduler.TextDisplayConstants.ttdcSubject)
        End If

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuShowTextSub_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuShowTextSub.Popup
        mnuShowTextSub_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuShowTextSub_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuShowTextSub.Click
        Dim Index As Short = mnuShowTextSub.GetIndex(eventSender)

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuShowTextSub_Click"

        Dim F As frmChild

        F = Me.ActiveMdiChild
        If Not (F Is Nothing) Then
            Select Case Index
                Case 0 : F.Schedule1.TextDisplay = Scheduler.TextDisplayConstants.ttdcDisplayText
                Case 1 : F.Schedule1.TextDisplay = Scheduler.TextDisplayConstants.ttdcSubject
            End Select
            F.Schedule1.ToolTipTextDisplay = F.Schedule1.TextDisplay
        End If

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuTestBlocking_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuTestBlocking.Popup
        mnuTestBlocking_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuTestBlocking_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuTestBlocking.Click

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuTestBlocking_Click"

        Dim i As Short
        Dim NewChild As frmChild

        'Tell the user what we are doing
        Call MsgBox("This will create a schedule for three days [1/1/2002 - 1/3/2002] that has the middle one [1/2/2002] setup as a NODROP zone. Also lunch hour [12PM - 1PM] has been blocked since no appointments can be scheduled during lunch.", MsgBoxStyle.Information)

        NewChild = FileNew()

        NewChild.Schedule1.AutoRedraw = False
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor

        'Setup this schedule, we need to set the start of the day and
        'the length of the schedule and such
        Call NewChild.Schedule1.SetMinMaxDate(#1/1/2002#, #1/3/2002#)
        NewChild.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayTopTimeLeft
        NewChild.Schedule1.StartTime = CStr(#8:00:00 AM#)
        NewChild.Schedule1.DayLength = 8
        NewChild.Schedule1.ScheduleIncrement = Scheduler.ScheduleIncrementConstants.sch30Minute
        NewChild.Schedule1.ColumnWidth = 70

        'This will Block the Day Jan 2, 2002 and the times from 12PM-1PM
        Call NewChild.Schedule1.NoDropAreas.Add(, , #12:00:00 PM#, 60)
        Call NewChild.Schedule1.NoDropAreas.Add(#1/2/2002#)

        NewChild.Schedule1.AutoRedraw = True

EndSub:
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub
        Resume

    End Sub
    Public Sub mnuTestDefaultDialogs_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuTestDefaultDialogs.Popup
        mnuTestDefaultDialogs_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuTestDefaultDialogs_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuTestDefaultDialogs.Click

        'This procedure makes a blank schedule with no appointments

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuTestDefaultDialogs_Click"

        Const cMaxRooms As Short = 3

        Dim i As Short
        Dim NewAppt As Scheduler.CScheduleEl
        Dim NewChild As frmChild

        'Tell the user what we are doing
        Call MsgBox("The new schedule will be blank and allow you to add appointments by double clicking. The default Add and Edit dialogs will appear when you do so.", MsgBoxStyle.Information)

        NewChild = FileNew()

        'Add some category information to the Schedule
        Call AddCategories(NewChild)

        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor

        'Setup this schedule, we need to set the start of the day and
        'the length of the schedule and such
        Call NewChild.Schedule1.SetMinMaxDate(#1/1/2002#, #1/31/2002#)
        NewChild.Schedule1.StartTime = CStr(#8:00:00 AM#)
        NewChild.Schedule1.DayLength = 10
        NewChild.Schedule1.ScheduleIncrement = Scheduler.ScheduleIncrementConstants.sch30Minute
        NewChild.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayTopTimeLeft
        NewChild.Schedule1.AllowAddDialog = True
        NewChild.Schedule1.AllowAdd = True
        NewChild.Schedule1.AllowDelete = True
        NewChild.Schedule1.AllowEdit = True

EndSub:
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuTestNextFit_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuTestNextFit.Popup
        mnuTestNextFit_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuTestNextFit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuTestNextFit.Click

        Dim oChild As frmChild
        Dim oAppt As Scheduler.CScheduleEl
        Dim sMsg As String

        Call MsgBox("A free spot be searched for to place the 'Test' appointment.", MsgBoxStyle.Information)

        'Get a handle to the form
        oChild = FileNew()
        oChild.WindowState = System.Windows.Forms.FormWindowState.Maximized
        oChild.Schedule1.AutoRedraw = False
        oChild.Schedule1.ColumnWidth = 75
        Call oChild.Schedule1.SetMinMaxDate(#1/1/2002#, #1/20/2002#)
        oChild.Schedule1.ScheduleIncrement = Scheduler.ScheduleIncrementConstants.sch30Minute
        oChild.Schedule1.DayLength = 8

        'Day 1 Room 1
        Call oChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(1), #9:00:00 AM#, 60, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(1), #10:30:00 AM#, 60, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(1), #12:00:00 PM#, 120, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(1), #3:00:00 PM#, 60, "")

        'Day 1 Room 2
        Call oChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(2), #8:00:00 AM#, 60, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(2), #10:00:00 AM#, 60, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(2), #11:30:00 AM#, 90, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(2), #1:30:00 PM#, 60, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(2), #3:00:00 PM#, 30, "")

        'Day 2 Room 1
        Call oChild.Schedule1.ScheduleItems.Add("", #1/2/2002#, CStr(1), #9:30:00 AM#, 60, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/2/2002#, CStr(1), #12:00:00 PM#, 60, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/2/2002#, CStr(1), #1:30:00 PM#, 30, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/2/2002#, CStr(1), #3:00:00 PM#, 60, "")

        'Test Appointment
        oAppt = oChild.Schedule1.ScheduleItems.Add("Test", #1/1/2002#, CStr(1), #8:00:00 AM#, 60, "Test")
        oAppt.BackColor = System.Convert.ToUInt32(ConvertColor(System.Drawing.Color.Black))
        oAppt.ForeColor = System.Convert.ToUInt32(ConvertColor(System.Drawing.Color.White))
        'UPGRADE_NOTE: Object oAppt may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1029"'
        oAppt = Nothing

        oChild.Schedule1.AutoRedraw = True

        'Loop and find free apointment slots
        While (MsgBox("Do you wish to find the next free appointment slot?" & vbCrLf & vbCrLf & sMsg, MsgBoxStyle.YesNo + MsgBoxStyle.Question) = MsgBoxResult.Yes)
            With oChild.Schedule1.ScheduleItems.Item("Test")
                oAppt = oChild.Schedule1.GetNextFreeSlot(.GroupId, .StartDate, CStr(oChild.Schedule1.Rooms.Index(.Room)), DateAdd(Microsoft.VisualBasic.DateInterval.Minute, oChild.Schedule1.ScheduleIncrement, CDate(.StartTime)), .Length, CStr(.Index))
                oChild.Schedule1.ScheduleItems.Item("Test").StartDate = oAppt.StartDate
                oChild.Schedule1.ScheduleItems.Item("Test").Room = oAppt.Room
                oChild.Schedule1.ScheduleItems.Item("Test").StartTime = oAppt.StartTime
                'sMsg = "Date: " & oAppt.StartDate & vbCrLf & "Room: " & oAppt.Room & vbCrLf & "Time: " & oAppt.StartTime
                sMsg = "Date: " & oAppt.StartDate & vbCrLf & "Time: " & oAppt.StartTime
            End With
        End While

    End Sub
    Public Sub mnuTestNextFitBlocking_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuTestNextFitBlocking.Popup
        mnuTestNextFitBlocking_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuTestNextFitBlocking_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuTestNextFitBlocking.Click

        Dim oChild As frmChild
        Dim oAppt As Scheduler.CScheduleEl
        Dim sMsg As String

        Call MsgBox("This example will define lunch as a nodrop zone from 12:00 PM to 1:30 PM. A free spot will then be searched for to place the 'Test' appointment.", MsgBoxStyle.Information)

        'Get a handle to the form
        oChild = FileNew()
        oChild.WindowState = System.Windows.Forms.FormWindowState.Maximized

        'Turn off screen redraw for faster loading
        oChild.Schedule1.AutoRedraw = False

        'Setup schedule properties
        oChild.Schedule1.ColumnWidth = 75
        Call oChild.Schedule1.SetMinMaxDate(#1/1/2002#, #1/20/2002#)
        oChild.Schedule1.ScheduleIncrement = Scheduler.ScheduleIncrementConstants.sch30Minute
        oChild.Schedule1.DayLength = 8

        'NoDrop zone for Lunch
        Call oChild.Schedule1.NoDropAreas.Add(, , #12:00:00 PM#, 90)

        'Day 1 Room 1
        Call oChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(1), #9:00:00 AM#, 60, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(1), #10:30:00 AM#, 60, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(1), #3:00:00 PM#, 60, "")

        'Day 1 Room 2
        Call oChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(2), #8:00:00 AM#, 60, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(2), #10:00:00 AM#, 60, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(2), #1:30:00 PM#, 60, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/1/2002#, CStr(2), #3:00:00 PM#, 30, "")

        'Day 2 Room 1
        Call oChild.Schedule1.ScheduleItems.Add("", #1/2/2002#, CStr(1), #9:30:00 AM#, 60, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/2/2002#, CStr(1), #1:30:00 PM#, 30, "")
        Call oChild.Schedule1.ScheduleItems.Add("", #1/2/2002#, CStr(1), #3:00:00 PM#, 60, "")

        'Test Appointment
        oAppt = oChild.Schedule1.ScheduleItems.Add("Test", #1/1/2002#, CStr(1), #8:00:00 AM#, 60, "Test")
        oAppt.BackColor = System.Convert.ToUInt32(ConvertColor(System.Drawing.Color.Black))
        oAppt.ForeColor = System.Convert.ToUInt32(ConvertColor(System.Drawing.Color.White))
        'UPGRADE_NOTE: Object oAppt may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1029"'
        oAppt = Nothing

        'Redraw the screen
        oChild.Schedule1.AutoRedraw = True

        'Loop and find free apointment slots
        While (MsgBox("Do you wish to find the next free appointment slot?" & sMsg, MsgBoxStyle.YesNo + MsgBoxStyle.Question) = MsgBoxResult.Yes)
            With oChild.Schedule1.ScheduleItems.Item("Test")
                oAppt = oChild.Schedule1.GetNextFreeSlot(.GroupId, .StartDate, CStr(oChild.Schedule1.Rooms.Index(.Room)), DateAdd(Microsoft.VisualBasic.DateInterval.Minute, oChild.Schedule1.ScheduleIncrement, CDate(.StartTime)), .Length, CStr(.Index))
                'Move the appointment to the newly found position
                oChild.Schedule1.ScheduleItems.Item("Test").StartDate = oAppt.StartDate
                oChild.Schedule1.ScheduleItems.Item("Test").Room = oAppt.Room
                oChild.Schedule1.ScheduleItems.Item("Test").StartTime = oAppt.StartTime
                'Rebuild the string for display to user
                sMsg = vbCrLf & vbCrLf & "Date: " & oAppt.StartDate & vbCrLf & "Room: " & oAppt.Room & vbCrLf & "Time: " & oAppt.StartTime
            End With
        End While

    End Sub

    Public Sub mnuToggleMonthMode_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuToggleMonthMode.Popup
        mnuToggleMonthMode_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuToggleMonthMode_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuToggleMonthMode.Click

        Dim F As frmChild

        F = Me.ActiveMdiChild
        If Not (F Is Nothing) Then
            If F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayTopTimeLeft Then
                F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcMonth
            Else
                F.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayTopTimeLeft
            End If
        End If

    End Sub
    Public Sub mnuWindowSub_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuWindowSub.Popup
        mnuWindowSub_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuWindowSub_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuWindowSub.Click
        Dim Index As Short = mnuWindowSub.GetIndex(eventSender)

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuWindowSub_Click"

        Select Case Index
            Case 0 : Me.LayoutMdi(System.Windows.Forms.MdiLayout.Cascade)
            Case 1 : Me.LayoutMdi(System.Windows.Forms.MdiLayout.TileVertical)
            Case 2 : Me.LayoutMdi(System.Windows.Forms.MdiLayout.TileHorizontal)
            Case 3 : Me.LayoutMdi(System.Windows.Forms.MdiLayout.ArrangeIcons)
        End Select

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Private Sub Picture1_Resize(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Picture1.Resize

        On Error Resume Next

        Call lblTip.SetBounds(0, 0, Picture1.Width, Picture1.Height)

    End Sub
    Public Sub mnuCategoryOtherAdd_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuCategoryOtherAdd.Popup
        mnuCategoryOtherAdd_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuCategoryOtherAdd_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuCategoryOtherAdd.Click

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuCategoryOtherAdd_Click"

        Dim i As Integer
        Dim j As Integer
        Dim lRanNum As Integer
        Dim NewEl As Scheduler.CCategoryCol
        Dim sMsg As String
        Dim ChildForm As frmChild

        ChildForm = Me.ActiveForm

        sMsg = "This will add 3 categories each with 4 elements to the active Schedule. "
        sMsg = sMsg & "There will be an 'Equipment', 'Vehicles', 'People' category. "
        sMsg = sMsg & "Each appointment can be assigned one (or none) element from each category. "
        sMsg = sMsg & "For example 'Appointment I' can be scheduled to use the 'NotePad' from the 'Equipment' category, "
        sMsg = sMsg & "the 'BMW' from the 'Vehicle' category, and be assigned to 'Sally' from the people category. " & vbCrLf & vbCrLf
        sMsg = sMsg & "The UseOtherCategories property must be set to True for all of this information to be displayed."
        Call MsgBox(sMsg, MsgBoxStyle.Information)

        'Clear the ScheduleItems collection's Categories collection
        ChildForm.Schedule1.ScheduleItems.Categories.Clear()

        '****************************************************************************
        'Now on the ScheduleItems collection add the "Equipment" Category
        NewEl = ChildForm.Schedule1.ScheduleItems.Categories.Add("Equipment")
        'Now add the elements to this Category
        Call NewEl.Add("Pen", System.Convert.ToUInt32(GetRandomColor))
        Call NewEl.Add("Pencil", System.Convert.ToUInt32(GetRandomColor))
        Call NewEl.Add("NotePad", System.Convert.ToUInt32(GetRandomColor))
        Call NewEl.Add("Chair", System.Convert.ToUInt32(GetRandomColor))

        '****************************************************************************
        'Now on the ScheduleItems collection add the "Vehicles" Category
        NewEl = ChildForm.Schedule1.ScheduleItems.Categories.Add("Vehicles")
        'Now add the elements to this Category
        Call NewEl.Add("Ford Truck1", System.Convert.ToUInt32(GetRandomColor))
        Call NewEl.Add("Ford Truck2", System.Convert.ToUInt32(GetRandomColor))
        Call NewEl.Add("Chevy", System.Convert.ToUInt32(GetRandomColor))
        Call NewEl.Add("BMW", System.Convert.ToUInt32(GetRandomColor))

        '****************************************************************************
        'Now on the ScheduleItems collection add the "People" Category
        NewEl = ChildForm.Schedule1.ScheduleItems.Categories.Add("People")
        'Now add the elements to this Category
        Call NewEl.Add("John", System.Convert.ToUInt32(GetRandomColor))
        Call NewEl.Add("Sally", System.Convert.ToUInt32(GetRandomColor))
        Call NewEl.Add("George", System.Convert.ToUInt32(GetRandomColor))
        Call NewEl.Add("Jane", System.Convert.ToUInt32(GetRandomColor))


        '****************************************************************************
        'Now randomly assign a category element from each category to each appointment
        For i = 1 To ChildForm.Schedule1.ScheduleItems.Count
            For j = 1 To ChildForm.Schedule1.ScheduleItems.Item(i).Categories.Count
                lRanNum = GetRandomNumber(1, ChildForm.Schedule1.ScheduleItems.Categories.Item(j).Count)
                ChildForm.Schedule1.ScheduleItems.Item(i).Categories.Item(j).Name = ChildForm.Schedule1.ScheduleItems.Categories.Item(j).Item(lRanNum).Name
            Next j
        Next i

        '****************************************************************************
        'Refresh the Screen
        Call ChildForm.Schedule1.Refresh()

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuColorSub_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuColorSub.Popup
        mnuColorSub_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuColorSub_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuColorSub.Click

        Dim Index As Short = mnuColorSub.GetIndex(eventSender)

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuColorSub_Click"

        Dim ChildForm As frmChild

        ChildForm = Me.ActiveForm

        Dialog1.CancelError = True
        Dialog1.MaxFileSize = 255

        If Not (ChildForm Is Nothing) Then
            Call Dialog1.ShowColor()
            Select Case Index
                Case 0
                    ChildForm.Schedule1.BackColor = Dialog1.Color
                Case 1
                    ChildForm.Schedule1.ForeColor = Dialog1.Color
            End Select
        End If

EndSub:
        Exit Sub

ErrHandler:
        If Err.Number <> 32755 Then
            Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        End If
        GoTo EndSub

    End Sub
    Public Sub mnuSchAddRoom_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuSchAddRoom.Popup
        mnuSchAddRoom_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuSchAddRoom_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuSchAddRoom.Click

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuSchAddRoom_Click"

        Dim sMsg As String
        Dim ChildForm As frmChild

        ChildForm = Me.ActiveForm

        If Not (ChildForm Is Nothing) Then
            sMsg = Trim(InputBox("Enter the new room name", "Add Room"))
            If sMsg = "" Then Exit Sub

            If ChildForm.Schedule1.Rooms.Exists(sMsg) Then
                MsgBox("The room already exists!", MsgBoxStyle.Exclamation, cMsgBoxErrorText)
            Else
                Call ChildForm.Schedule1.Rooms.Add(sMsg)
            End If

        End If

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuSchDeleteCategory_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuSchDeleteCategory.Popup
        mnuSchDeleteCategory_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuSchDeleteCategory_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuSchDeleteCategory.Click

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuSchDeleteCategory_Click"

        Dim ChildForm As frmChild

        ChildForm = Me.ActiveForm

        frmDeleteCategory.DefInstance.Categories = ChildForm.Schedule1.Categories
        frmDeleteCategory.DefInstance.ShowDialog()

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuSchAddCategory_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuSchAddCategory.Popup
        mnuSchAddCategory_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuSchAddCategory_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuSchAddCategory.Click

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuSchAddCategory_Click"

        Dim ChildForm As frmChild

        ChildForm = Me.ActiveForm

        If Not (Me.ActiveMdiChild Is Nothing) Then
            frmCategory.DefInstance.Categories = ChildForm.Schedule1.Categories
            frmCategory.DefInstance.ShowDialog()
        End If

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuExit_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuExit.Popup
        mnuExit_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuExit.Click
        Me.Close()
    End Sub
    Public Sub mnuFile_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuFile.Popup
        mnuFile_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuFile_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuFile.Click

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuFile_Click"

        Call UpdateMenu()

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Private Function IsLoaded(ByVal Filename As String) As Boolean

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "IsLoaded"

        Dim i As Short

        'UPGRADE_ISSUE: Forms collection was not upgraded. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2068"'
        'UPGRADE_WARNING: Couldn't resolve default property of object Forms.Count. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
        For i = 1 To Forms.Count
            'UPGRADE_ISSUE: Forms collection was not upgraded. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2068"'
            'UPGRADE_WARNING: Couldn't resolve default property of object Forms().MDIChild. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
            If Forms(i).MDIChild Then
                'UPGRADE_ISSUE: Forms collection was not upgraded. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2068"'
                'UPGRADE_WARNING: Couldn't resolve default property of object Forms().Filename. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
                If StrComp(Forms(i).Filename, Filename, CompareMethod.Text) = 0 Then
                    IsLoaded = True
                    Exit Function
                End If
            End If
ResumePlace:
        Next i

        IsLoaded = False
        Exit Function

ErrHandler:
        Resume Next

    End Function
    Public Sub mnuHelpAbout_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs)
        mnuHelpAbout_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuHelpAbout_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs)

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuHelpAbout_Click"

        gAboutIcon = Me.Icon
        'frmAbout.DefInstance.ShowDialog()

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuSchedule_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuSchedule.Popup
        mnuSchedule_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuSchedule_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuSchedule.Click

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuSchedule_Click"

        Call UpdateMenu()

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuSchRemoveRoom_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuSchRemoveRoom.Popup
        mnuSchRemoveRoom_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuSchRemoveRoom_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuSchRemoveRoom.Click

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuSchRemoveRoom_Click"

        Dim i As Short
        Dim sMsg As String
        Dim ChildForm As frmChild

        ChildForm = Me.ActiveForm

        If Not (ChildForm Is Nothing) Then
            sMsg = Trim(InputBox("Enter the name or index of the room to remove.", "Remove Room"))

            If Not ChildForm.Schedule1.Rooms.Exists(sMsg) Then
                MsgBox("The room does not exists!", MsgBoxStyle.Exclamation, cMsgBoxErrorText)
            Else

                'If the index was entered then convert to the name
                If IsNumeric(sMsg) Then
                    sMsg = ChildForm.Schedule1.Rooms.Item(sMsg).Name
                End If

                For i = 1 To ChildForm.Schedule1.ScheduleItems.Count
                    If StrComp(ChildForm.Schedule1.ScheduleItems.Item(i).Room, sMsg, CompareMethod.Text) = 0 Then
                        Call ChildForm.Schedule1.ScheduleItems.Remove(i)
                    End If
                Next i
                Call ChildForm.Schedule1.Rooms.Remove(sMsg)
            End If

        End If

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Public Sub mnuSchSub_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuSchSub.Popup
        mnuSchSub_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuSchSub_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuSchSub.Click
        Dim Index As Short = mnuSchSub.GetIndex(eventSender)

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuSchSub_Click"

        Dim F As frmChild

        If Not (Me.ActiveMdiChild Is Nothing) Then
            F = Me.ActiveMdiChild
            Select Case Index
                Case 0 : F.Schedule1.AllowAdd = Not F.Schedule1.AllowAdd
                Case 1 : F.Schedule1.AllowDelete = Not F.Schedule1.AllowDelete
                Case 2 : F.Schedule1.AllowCopy = Not F.Schedule1.AllowCopy
                Case 3 : F.Schedule1.AllowEdit = Not F.Schedule1.AllowEdit
                Case 4 : F.Schedule1.AllowMove = Not F.Schedule1.AllowMove
                Case 5 : F.Schedule1.ConflictWarn = Not F.Schedule1.ConflictWarn
                Case 6 : F.Schedule1.Enabled = Not F.Schedule1.Enabled
                Case 7 : F.Schedule1.CategoryBar = Not F.Schedule1.CategoryBar
                Case 8 : F.Schedule1.AllowAddDialog = Not F.Schedule1.AllowAddDialog
                Case 9 : F.Schedule1.UseOtherCategories = Not F.Schedule1.UseOtherCategories
                Case 10 'Do Nothing
                Case 11
                    F.Schedule1.AutoRedraw = Not F.Schedule1.AutoRedraw
                Case 12 : F.Schedule1.ShowProviderAvailableTime = Not F.Schedule1.ShowProviderAvailableTime
                Case 13 : F.Schedule1.ShowProviderScheduledTime = Not F.Schedule1.ShowProviderScheduledTime
                Case 14 : F.Schedule1.AllowEventHeader = Not F.Schedule1.AllowEventHeader
            End Select
            Call UpdateMenu()
        End If

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Private Function FileNew() As System.Windows.Forms.Form

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "FileNew"

        Dim F As New frmChild()

        F.Schedule1.StartTime = CStr(#8:00:00 AM#)
        F.Schedule1.DayLength = 10
        Call F.Show()
        Call UpdateMenu()
        FileNew = F

EndSub:
        Exit Function

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Function

    Private Sub AddCategories(ByRef NewChild As frmChild)
        Dim Categories() As String = {}
        AddCategories(NewChild, Categories)
    End Sub
    Private Sub AddCategories(ByRef NewChild As frmChild, ByVal Categories() As String)

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "AddCategories"

        Dim i As Short

        'Clear the Categories, just in case there are some there already
        Call NewChild.Schedule1.Categories.Clear()

        'Set the Name displayed as the header for the categories
        NewChild.Schedule1.Categories.Name = "Categories"

        If Categories.Length = 0 Then

            'Add the Default Category elements (There were none passed in here)
            Call NewChild.Schedule1.Categories.Add("High Priority", ConvertColor(System.Drawing.Color.Red))
            Call NewChild.Schedule1.Categories.Add("Medium Priority", ConvertColor(System.Drawing.Color.Blue))
            Call NewChild.Schedule1.Categories.Add("Low Priority", ConvertColor(System.Drawing.Color.Yellow))

        Else

            'Load the Categories that were passed in here
            For i = 0 To Categories.Length Step 2
                Call NewChild.Schedule1.Categories.Add(Categories(i), UInt32.Parse(Categories(i + 1)))
            Next i

        End If

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Private Function RandomString() As String

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "RandomString"

        Const cWordCount As Short = 10
        Const cMaxLetters As Short = 10

        Dim Value As String
        Dim i As Short
        Dim j As Short

        For i = 1 To cWordCount
            For j = 0 To Fix(Rnd() * cMaxLetters)
                Value = Value & Chr((Rnd() * 25) + 97)
            Next j
            Value = Value & " "
        Next i

        RandomString = Value

EndSub:
        Exit Function

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Function
    Public Sub mnuAdd5_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuAdd5.Popup
        mnuAdd5_Click(eventSender, eventArgs)
    End Sub
    Public Sub mnuAdd5_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuAdd5.Click

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "mnuAdd5_Click"

        Const cMaxRooms As Short = 2

        Dim i As Short
        Dim NewAppt As Scheduler.CScheduleEl
        Dim NewChild As frmChild

        'Tell the user what we are doing
        Call MsgBox("This will create a schedule with 5 appointments already on it.", MsgBoxStyle.Information)

        NewChild = FileNew()

        'Add some category information to the Schedule
        Call AddCategories(NewChild)

        NewChild.Schedule1.AutoRedraw = False
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor

        'Setup this schedule, we need to set the start of the day and
        'the length of the schedule and such
        Call NewChild.Schedule1.SetMinMaxDate(#1/1/2002#, #1/5/2002#)
        NewChild.Schedule1.StartTime = CStr(#8:00:00 AM#)
        NewChild.Schedule1.DayLength = 10
        NewChild.Schedule1.ScheduleIncrement = Scheduler.ScheduleIncrementConstants.sch30Minute

        'Add some rooms to this schedule
        Call NewChild.Schedule1.Rooms.Clear()
        For i = 1 To cMaxRooms
            Call NewChild.Schedule1.Rooms.Add("Room" & i)
        Next i

        'Add 5 appointments so the user can see a demonstration
        Call NewChild.Schedule1.ScheduleItems.Clear()
        NewAppt = NewChild.Schedule1.ScheduleItems.Add("Appt1", #1/1/2002#, CStr(1), #8:00:00 AM#, 120, "Appt1", 1)
        NewAppt = NewChild.Schedule1.ScheduleItems.Add("Appt2", #1/2/2002#, CStr(2), #9:00:00 AM#, 90, "Appt2", 3)
        NewAppt = NewChild.Schedule1.ScheduleItems.Add("Appt3", #1/3/2002#, CStr(1), #10:00:00 AM#, 240, "Appt3", 2)
        NewAppt = NewChild.Schedule1.ScheduleItems.Add("Appt4", #1/2/2002#, CStr(1), #11:00:00 AM#, 90, "Appt4", 1)
        NewAppt = NewChild.Schedule1.ScheduleItems.Add("Appt5", #1/1/2002#, CStr(2), #12:00:00 PM#, 120, "Appt5", 2)
        NewChild.Schedule1.ColumnWidth = 70
        NewChild.Schedule1.ViewMode = Scheduler.ViewModeConstants.vmcNormalDayRoomTopTimeLeft

        NewChild.Schedule1.AutoRedraw = True

EndSub:
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub
    Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick

        On Error GoTo ErrHandler
        Const cPROCNAME As String = "Timer1_Timer"

        'In the given interval teh status bar will be erased
        'and "Ready" will be displayed

        lblTip.Text = "Ready"
        Timer1.Enabled = False

EndSub:
        Exit Sub

ErrHandler:
        Call SetErr(Err.Number, Err.Description, Me.Name, cPROCNAME)
        GoTo EndSub

    End Sub

End Class